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SUMMARY  PAGE 


PROBLEM: 

Material  safety  data  sheets  are  used  by  health  professionals  to  determine 
possible  health  hazards  posed  by  the  use  of  various  chemical  compounds.  The 
current  methods  of  obtaining  and  sorting  material  safety  data  sheet  (M$DS) 
information  are  cumbersome  arid  time  consuming. 


FINDINGS: 

Computer  programs  were  specifically  written  to  manipulate  the  voluminous 
data  of  MSDS's.  i 


APPLICATION: 

Our  MSDS  retrieval  systetn  was  designed  to  improve  the  management 
of  MSDS  information  primarily  for  DOD  but  may  be  applied  to  industry  as  well. 


ADMINISTRATIVE  INFORMATION 

This  work  was  carried  out  under  the  Naval  Medical  Research  and  Develop¬ 
ment  Command  Research  Work  Unit  No.  MF58.  524.  003-0002. 

The  report  was  submitted  for  review  on  11  July  1983,  approved  for  publication 
on  20  July  1983.  It  has  been  designated  as  NSMRL  Memorandum  Report  No.  83-4. 
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ABSTRACT 


FORTRAN  computer  programs  were  written  in  order  to  store  and  retrieve 
material  safety  data  sheet  (MSDS)  information.  The  first  program  is  used  to 
add  individual  MSDS  information  to  the  master  file  whereas  the  second  program 
allows  the  master  file  to  be  printed.  The  third  and  fourth  programs allow  for 
manipulation  of  the  data  in  the  master  file  such  as  searching  and  matching 
for  specific  information  within  the  different  information  categories.  Under 
development  are  programs  used  to  extract  certain  data  frat  the  hazardous 
materials  information  system  (HMIS)  and  incorporate  them  into  our  own  MSDS 
system.  When  completed,  our  on-line  hazardous  compound  records  will  number 
approximately  16,000. 
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INTRODUCTION 


Part  of  a  study  for  evaluating 
the  .limits  of  atmospheric 
contaminants  in  nuclear  submarines 
work  unit  number  MF58. 524. 003-0002 
was  to  identify  the  chemical 
ingredients  of  substances  used  in 
the  normal  maintenance  and 
operation  of  these  vessels.  Our 
method  for  completing  this  task  was 
to  obtain  material  safety  data 
sheets  (MSDS)  for  all  254 
substances  permitted  aboard 
submarines.  As  we  progressed  in 
this  endeavor,  it  became  apparent 
that  ccmputerized  storage  and 
retrieval  of  MSDS  information  of 
sane  30,000  different  chemicals  in 
more  than  400,000  different 
products  on  the  open  market  could 
vastly  improve  the  ability  of 
health  professionals  to  help 
protect  workers  from  chemical 
hazards  in  both  the  Department  of 
Defense  (DOD)  and  industry.  Fbr 
this  reason  we  devised  a  computer 
program  to  manipulate  MSDS  data  so 
it  could  be  readily  available  to 
anyone  who  has  a  computer  terminal 
and  telephone  link.  The  following 
is  a  description  of  how  MSDS 
information  can  be  of  value  and  how 
our  computer  retrieval  system 
works. 

Federal  law  and  regulations 
mandate  that  navy  and  maritime 
activities  obtain  MSDS's  in  order 
to  have  the  necessary  information 
so  as  to  furnish  safeguards  to 
protect  the  life,  health,  and 
safety  of  their  employees .  MSDS ’ s 
are  available  from  most 
manufacturers  on  OSHA  Form  20 
"Material  Safety  Data  Sheet" 
(appendix  1).  The  MSDS  allows 
users  of  hazardous  materials  to 
ascertain  the  potential  fire, 
toxic,  or  reactivity  hazards  which 
are  likely  to  be  encountered  in 
their  handling,  application,  or 
utilization  and  final  disposal . 


Because  the  information  on  these 
sheets  may  be  complicated  or 
involve  trade  secrets,  the 
industrial  hygienists  at  a  local 
safety  and  health  office  will 
usually  keep  the  sheets  on  file  and 
interpret  the  product  data  in  order 
to  inform  workers  of  potential 
hazards . 

METHODOLOGY 

Our  MSDS  data  is  managed  by  a 
group  of  FORTRAN  programs  specially 
designed  for  this  application 
(Appendix  2,  2a,  3,  4,  and  5).  All 
the  data  is  stored  in  five  indexed 
sequentially  organized  files  and 
maintained  on-line  on  a  computer 
disk  normally  available  for  access 
24  hours  per  day.  Individual 
MSDS's  are  added  to  the  master  file 
by  running  a  program  which  prompts 
the  user  for  the  various  pieces  of 
information  such  as  the  trade  name, 
hazard  code,  chemicals ,  etc. 
(information  categories.  Appendix 
6c) ,  arranges  than  in  the 
appropriate  format  and  appends  the 
new  MSDS  to  the  files.  The  MSDS  is 
assigned  a  unique  number  determined 
by.  its  order  of  entry  into  the 
file. 

The  entire  master  file  or 
portions  thereof  can  be  printed 
under  the  control  of  another 
FORTRAN  program.  Each  MSDS  is 
formated  with  labels  and  arranged 
in  the  printout  for  easy 
identification  (Appendix  7).  The 
program  prompts  for  a  beginning 
MSDS  number  and  an  ending  number 
thereby  allowing  any  sequential 
subset  of  MSDS's  to  be  printed. 

A  third  program  permits  a 
search  of  the  entire  MSDS  data  base 
by  presenting  the  user  the  menu  of 
information  categories.  In  order 
to  retrieve  specific  data  from  an 
MSDS  master  file,  the  user 
specifies  which  category  he  would 
like  searched  and  then  enters  a 


string  of  characters  spelling  out 
the  chemical,  hazard  code,  trade 
name,  etc.  A  search  of  the 
appropriate  file  is  then  done  for 
the  occurrence  of  the  particular 
character  string  and  the  complete 
records  of  all  MSDS’s  for  which 
matches  are  found  are  automatically 
written  into  a  separate  disk  file 
and  printed  (Appendix  8). 

A  fourth  program  reads  the  MSDS 
file  and  writes  a  user-selected 
specific  information  category  file 
which  is  then  sorted  in 
alphabetical  or  numerical  order 
(appendix  9) . 

At  present,  correction  to 
information  in  the  data  base  can  be 
made  via  a  system  text-editing 
utility  program.  A  FORTRAN  program 
is  currently  being  written  to 
provide  this  capability  in  a  much 
simpler  fashion.  The  new  program 
will  arrange  information  into  the 
proper  record  locations  under  the 
design  format  and  require  the  user 
only  to  verify  the  correction  to 
the  information  in  a  given  item  of 
data. 

These  programs  are  now  running 
on  a  VAX  11/750  central  computer 
system  (Digital  Equipment 
Corporation) .  The  processor  is 
equipped  with  1.5  megabytes  of 
memory,  220  megabytes  of  on-line 
disk  storage,  and  a  dual  density 
magnetic  tape  unit.  The  current 
MSDS  master  file  consists  of  sane 
500  kilobytes  of  information  and  is 
resident  on  a  160  megabyte 
winchester- technology  disk.  There 
are  currently  16  available  ports  to 
the  VAX  for  user  access,  three  of 
them  being  via  phone  lines. 
Authorized  users  need  only  dial 
into  their  accounts  on  the  computer 
and  issue  run  commands  for  the 
various  programs  of  the  VAX/MSDS 
system.  The  ccrtmands  for  operating 
the  system  are  listed  in  Appendix 
10. 


FUTURE  PLANS 

DOD  has  instituted  a  hazardous 
material  information  system  (HMIS) 
which  provides  reference  data  to 
assist  in  the  managemeht  of 
hazardous  materials  so  that  the 
risks  involved  are  minimized.  The 
data  provided  on  microfiche  are 
compiled  frcm  MSDS  sheets  for 
approximately  15,000  chemical 
compounds  listed  in  the  Federal 
stock  system  and  used  by  the  armed 
forces.  Although  the  HMIS  is  an 
excellent  data  base,  the 
information  is  accessible  only  with 
a  microfiche  reader  which  we  feel 
is  a  serious  limitation.  Another 
drawback  of  the  HMIS  system  is  that 
there  is  no  effective  method  for 
locally  surveying  all  the  compounds 
for  a  particular  chemical  short  of 
manually  looking  at  all  o::  the  data 
sheets  individually  and  noting 
those  that  have  the  chemical.  When 
thousands  of  data  sheets  must  be 
surveyed,  the  task  becomes 
unmanageable.  To  solve  this 
problem,  we  plan  to  extract  certain 
data  from  the  HMIS  and  incorporate 
them  into  our  VAX/MSDS  Computer 
system.  As  previously  explained, 
our  computer  system  has  the  ability 
to  rapidly  search  all  the  chemical 
files  and  list  those  MSDSl's  which 
have  the  chemical  of  interest. 
This  feature  will  be  especially 
valuable  when  conducting  regional 
annual  surveys  of  hazardous 
materials.  In  this  respect,  for 
example,  plans  call  for  the 
computer  to  be  used  to  prepare 
lists  of  hazardous  products  used  by 
various  shops  in  the  Naval 
Submarine  Support  Facility.  A  user 
code  will  be  assigned  to  each  shop 
or  activity.  Printouts  df  these 
lists  will  be  sent  to  each  shop 
periodically  allowing  them  to 
compare  the  list  with  current  stock 
and  post  hazard  ratings  where 
necessary. 
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A  hazardous  materials  labelling 
program  has  recently  been  proposed 
at  the  Submarine  Base  by  the 
Industrial  Hygiene  Branch  of  the 
Naval  Submarine  Medical  Center  in 
order  to  ensure  that  all  wcrkers 
are  informed  of  the  potential 
hazards  of  the  products  they  use. 
The  supply  department  will  be 
responsible  for  labelling  all 
incoming  hazardous  products  with 
hazard  warning  decals.  This  hazard 
rating  information  will  be  supplied 
to  them  via  the  VAX/MSDS  computer 
system  which  incorporates  hazard 
ratings  in  the  list  of  information. 
These  ratings  are  assigned  by  the 
professional  industrial  hygienist 
and  are  not  included  in  MSDS ' s  f rcm 
manufacturers  on  OSHA  Form  20  or  in 
the  HMIS.  A  comparison  of 


information  categories  found  on 
OSHA  Form  20,  the  HMIS,  and  our 
VAX/ MSDS  system  is  listed  in 
Appendix  6.  Also,  the  user  code 
breakdown  for  our  system  is  in 
Appendix  6. 

A  field  test  of  this  system  is 
currently  in  progress .  We 
anticipate  further  minor  changes  in 
the  programs  as  the  system  is 
developed  and  beneficial 
suggestions  from  users  are 
received.  Also,  as  data  entry  and 
file  management  utilities  are  added 
to  the  VAX  system,  the  MSDS 
programs  will  be  upgraded  to  take 
advantage  of  them.  A  field  test 
report  will  be  issued  in  about  one 
year. 
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U  S.  DEPARTMENT  OF  LABOR 

Occupational  Safety  and  Health  Administration 

MATERIAL  SAFETY  DATA  SHEET 

Required  under  USDL  Safety  and  Health  Regulations  for  Ship  Repairing, 

Shipbuilding,  and  Shipbreaking  (29  CFR  1915,  1915,  1917) 

SECTION  I 


MANUFACTURER'S  NAME 


EMERGENCY  TELEPHONE  NO. 


ADDRESS  (Number,  Street,  City,  State,  and  ZIP  Code) 


CHEMICAL  NAME  AND  SYNONYMS 


CHEMICAL  FAMILY 


TRADE  NAME  AND  SYNONYMS 


SECTION  II  -  HAZARDOUS  INGREDIENTS 


PAINTS.  PRESERVATIVES,  &  SOLVENTS 


PIGMENTS 


CATALYST 


VEHICLE 


SOLVENTS 


ADDITIVES 


OTHERS 


HAZAROOUS  MIXTURES  OF  OTHER  LIQUIDS,  SOLIDS,  OR  GASES 


ALLOYS  AND  METALLIC  COATINGS 


BASE  METAL 


ALLOYS 


METALLIC  COATINGS 


FILLER  METAL 

PLUS  COATING  OR  CORE  FLUX 


BOILING  POINT  TF.) 


VAPOR  PRESSURE  (mm  Hg,) 


VAPOR  DENSITY  (AIR=1) 


SOLUBILITY  IN  WATER 


APPEARANCE  AND  ODOR 


SECTION  111  -  PHYSICAL  DATA 


SPECIFIC  GRAVITY  (H20=1) 


PERCENT,  VOLATILE 
BY  VOLUME  (%> 


EVAPORATION  RATE 
( - 1- 


FLASH  POINT  (Method  used) 


EXTINGUISHING  MEDIA 


SPECIAL  FIRE  FIGHTING  PROCEDURES 


SECTION  IV  -  FIRE  AND  EXPLOSION  HAZARD  DATA 


FLAMMABLE  limits 


Al-1 


APPENDIX  1 


SECTION  V  -  HEALTH  HAZARD  DATA 


THRESHOLD  LIMIT  VALUE 


EFFECTS  OF  OVEREXPOSURE 


STABILITY 

UNSTA8LE 

STABLE 

SECTION  VI  -  REACTIVITY  OATA 


CONCEPTIONS  TO  AVOID 


incompatability  (Materials  to  avoid) 


HAZAROOUS  DECOMPOSITION  PRODUCTS 


HAZARDOUS 

MAY  OCCUR 

POLYMERIZATION 

WILL  NOT  OCCUR 

CONDITIONS  TO  AVOID 


SECTION  VII  -  SPILL  OR  LEAK  PROCEDURES 


STEPS  TD  BE  TAKEN  IN  CASE  MATERIAL  IS  RELEASED  OR  SPILLED 


SECTION  VIM  -  SPECIAL  PROTECTION  INFORMATION 


respiratory  protection  (Specify  type) 


LOCAL  EXHAUST 


MECHANICAL  (General)  OTHER 


EYE  PROTECTION 


VENTILATION 


PROTECTIVE  GLOVES 


OTHER  PROTECTIVE  EQUIPMENT 


SECTION  IX  -  SPECIAL  PRECAUTIONS 

PRECAUTIONS  TO  BE  TAKEN  IN  HANDLING  AND  STORING 


A 1-2 


^  ^  ^  ^  ^  /p  ^  ^  ^  <7-  /T*  ^p  *  /p  /p  ^  *p  /p  ^  flv  ^  /p  ^  ^  ^  ^  ^  /p  ^  ^  ^  ^  /p  ^  ^  ^  ^  ^  *p  ^  ^  ^  ^  ^  ^  ^  Jp  ^  ^  ^  ^  ^  ^  *  rT' ^  T  ^p  "  ^  *p  "  ^p  *p  *p  »p 


*  * 

*  PROGRAM  TITLE  5  DATASHEET  * 

%  * 

t  WRITTEN  BY  5  DIETER  BOESSMANN  * 

*  COMPUTER  APPLICATIONS  * 

*  NSMRL  * 

*  * 

*  PROGRAM  INTENT  :  THIS  PROGRAM  PROVIDES  A  DATA  ENTRY  SYSTEM  FOR  * 

*  THE  MATERIAL  SAFETY  DATA  BASE  PROJECT.  THE  * 

*  PROGRAM  UTILIZES  THE  GRAPHICS  CAPABILITIES  * 

*  OF  THE  DIGITAL  VTIOO  TERMINALS  j  SO  IT  MUST  * 

*  BE  EXECUTED  ON  ONE  THOSE  TERMINALS.  * 

*  * 


•1.  \L  il/  •  f /  ^  ^  iL  ilr  d/  dr  dr  dr  dr  dr  dr  dr  ^  d  d  ^  dr  ^  d  ^  d  dr  ^  dr  dr  ^  dr  dr  d'  dr  dr  d  dr  d  sir  dr  d  d  d  d  d  d  d  dr  vV  d  dr  d  d  d  dr  or  d  d  d  d  dr  dr  ^  d  d  dr 

^P  /p  ^  rp  ^  ^  q>  rx»  rp  ^  ^  ^  ^  rp.  rp  r^  rpv  ^  rp  ^  ^  rp  rp  ^  rp»  ^  r^  ryfc  rp  ^  ^  ^  ^  ^  ^  *«  rp  *•  q*  ^  ^  ^  ^  Jp  rp  rT1.  *  ryC  rp  •*  ^  ^  ^  /p.  r^  rp  fp  ^  ^  rp  ^  rpv 

CHARACTER*50  DASHES  ?  INGRED(10)»  NEW..ID 
CHARACTER*40  H  A  N  U  F  »  TRADE?  NEW_MAN j  NEU_.TRB 
CHARACTER*20  STOCK »  NEW-STK 
CHARACTER*15  PROTEC (7) »  NEW_PD 
CHARACTER*^  SH»  USERS (99)*  NEU-SH*  NEW-US 
CHARACTER*!?  YEAR*  NEW_YR 

CHARACTER  H,  F*  R,  X*  Y*  Z*  NEW..H  *  NEU..F*  NEW-R*  YN 

INT£GER*4  DATA..SH*  NEW_DS*  CHECK_DS*  UNIQ.DS 

INTEGER*2  N-USERS*  N_ I NGRED *  N-PROT 

INTEGER  ANSWER 

BYTE  ESC 

DATA  DASHES/' _ _ _ ‘  / 

DATA  ESC/ "33/ 

d  d  d  d  d  d  d  ^  ^  ^  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  dddddddddddddd  d  d 

************************************************************************ 

OPEN  <UNIT=10,  FILE= ' L BOESSMANN .MATSAFETY3MANUFAC.DAT'  ? 

1  STATUS= ' OLD  '  >  ORGAN  I ZATI 0N= ' INDEXED ' ,  ACCESS= ' KEYED ' * 

2  RECORDTYF’E  -  '  VARIABLE  '  »  F0RM  =  '  UNFORMATTED  '  »  RECL=26» 

3  KEY=  <  1  5 4  5  INTEGER »  5 5  4 4  ‘.CHARACTER »  45 5 84  5  CHARACTER ? 

4  85.  .104  .CHARACTER)  r  I0STAT=I0S >  ERR  =  9000) 

*****  1*4  5  DATA  SHEET  NUMBER 

*****  5  5  4  4  5  MANUFACTURER 

*****  45J 84  I  TRADE  NAME 

*****  852 104  !  STOCK/MANUF  NUMBER 

d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 

^  ^  rT*  r^  r^  ^  ^  vp  ^  p  -p  rp  ^  rp  ^  ^  rP  rP  rP  rP  p  rp  rp  ^  ^  ^  ^  rp  rp  p  rp  ^  ^  ^  /p  rp  ^  ^  ^  ^  ^  rP  rp  ^  ^  ^  ^  rP  rP  *■  /P  ^  ^  rp  ip  ^  rp  ^  rp  ^  rp  p  rp  ^  rp 

OPEN  (UN  IT-"  11  r  FILE  =  '  II  BOESSMANN .  MATS AFETY3HC0DES  .  DAT  '  ? 

1  STATUS= '  OLD  '  »  ORGANIZAT 1 0N=  '  INDEXED  '  i>  ACCESS=  '  KEYED  '  > 

2  RECORDTYF'E^  '  VARIABLE  '  ?  FORM=  ' UNFORMATTED  '  t  RECL=-'5> 

3  KEY  =  ( 1 :  4  :  INTEGER »  5  J  6  : 1 NTEGER  *  .7  :  8  5  INT EGER »  9  5  10.  INTEGER  t 

A  115  12: CHARACTER  t  13  J 13 5  CHARACTER  v  1 4 5 1 4 5 CHARACTER j 

5  15  5  15  5  CHARACTER »  1 6  5 .1  9  5  CHARACTER  )  ?  I OST  AT  =  I  OS  *  ERR-9000) 


r|!  )|(  r|[  )f[  )j( 

1  J4 

♦ 

♦ 

DATA  SHEET  NUMBER 

d  d  d  d  d 

^  rp  rP  p  rf>. 

556 

♦ 

♦ 

NUMBER 

OF  USERS 

d  d  d  d‘  d 

rfv  rp  ^  p  rp 

758 

♦ 

♦ 

NUMBER 

OF  INGREDIENTS 

***** 

9  5  10 

♦ 

♦ 

NUMBER 

OF  PROTECTIVE  DEVICES 

***** 

115  12 

t 

<• 

YEAR  DATA  SHEET  OBTAINED 

***** 

3  3113 

♦ 

♦ 

HAZARD 

CODE  H 

***** 

145  14 

♦ 

fr 

HAZARD 

CODE  F 

***** 

15515 

4 

» 

HAZARD 

CODE  R 

Appendix  2-1 


*****  16; 19  ;  SPECIAL  HAZARD  CODE 


/r-T-T‘/r-T--T--T--T-,T-T--r-T-  'T^  'T^  ‘T-  <T-  ^  >T-  'T'  if ■  fl.  T'  ^  iT***^>^>tS 


OPEN  ( UNIT-12  ?  FILE=' CBOESSMANN . MATSAFETY J USERS  *  DAT  7  i 

1  STATUS-: 7  OLD  7  »  ORGANIZATION*  '  INDEXED  7  »  ACCESS*  7  KEYED  '  » 

2  RECGRBTYPE- 7  VARIABLE  7 *  FORM* 'UNFORMATTED7 »  RECL*3» 

3  KEY*(lM:iNTE8ER»  5  5  8?  INTEGER*  9  ;  1 2  I  CHARACTER  )  c 

4  1 0  S  T  A  T  1 0  S  y  ERR  -■■  9  0  0  0  ) 

*****  1 ;  4  ;  UNIQUE  KEY  NUMB E R  (BASED  ON  D A T  A  S H EE'l  N U M B V  ft  > 

*****  5; 8  t  DATA  SHEET  NUMBER 

*****  9: 12  t  USER  CODE 


k  k  k  k  k  k  ‘V  ‘t/  'V  k  k  k  k  k  "4/  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  '-i/  k  k  'i1  k  k  k  k  -Ar  \L-  ’A'  'J/  ^  Vb  'll' 

'T'  vf.  <fv  Jf.  ft  jfy  jf.  if .  .fw  ^  /f.  4fv  <T.  (T.  T-  ^  sf-  T-  'P  iTl  <T*  ^  <TV  -T>  'T-  'T-  9$.  ^  <Tv  *T-  AN  -t-  'T1  4n  4S  'T-  A'  <T-  T1  <T»  <T*  'P  -T-  • p  O'  ■ T>  'P-  'T1  'r'  i V  <T>  T-  O' 


********* 


OPEN  (UNIT-13?  FILE-  7  CBOESSHANN  *  MATSAFET  Y  ^PROTECT  ,  DAT  7  > 

1  STATUS-  'OLD  7  i  ORGANIZATION*7 INDEXED  7 »  ACCESS* ' KEYED 7  ? 

2  RECORD TYPE*  7  VARIABLE 7 »  FORM* 7  UNFORMATTED '  ?  RECL*6» 

3  KEY£<  1*4  5  INTEGER i>  5  J  B  ;  INTEGER  »  9 1 23 1 CHARACTER >  » 

4  IOSTAT:-IOSr  BIRR”- 9  OOO  ) 


^  'if  ^  ^  ^ 

*■  ^p»  ^  ^p» 

«JLr  ^  «X*  *X*  *X* 

/jv  ^ 

^  ^ 
17.  ^  ^  ^ 


114 
5  1  8 
91  2  3 


1  UNIQUE  KEY  NUMBER  (BASED  ON  DATA  SHEET  NUMBER) 
1  DATA  SHEET  NUMBER 
1  PROTECTIVE  DEVICE 


k  k  k  k  ’ir  k  k  k  k  4"  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  l7  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  '4:  '4'  k  'k  k  'i7  k k k  k  k  k  k  k  'k  k  k  k 

if.  ,fi  Jfi  sf>  Jf.  .f»  ft  /p  Jf,  If-  <*>  -t*  ^  ^  'r  'P  v  ^  4'  'P  Tjwp.  .ip-  «*<?'■  ^P  <T-  'P  ■7P  <T-  'T' 


********* 


OPEN 

1 

2 

3 

4 


<  U N I T  =  1 4  n  FILE*  "  CBOESSMANN  *  MATSAF  E f Y  .1 1 NGRED  .  DAT  7  f 
STATUS*  7  OLD  7  >  ORGANIZATION*  7  INDEXED  7  »  ACCESS* ’ KEYED  7 » 
RECORDTYPE- 7  VARIABLE  7 »  FORM* 7  UNFORMATTED  7  r  RECL*1S» 
KEY*  < 1 J  4 1  INTEGER  7  5  1 8  » INTEGER  t  91 58  1  CHAR ACT  ER ) r 
IOST  AT*I OS  >  ERR  =  9000 ) 


^  ^  ^  ^ 
jj/  ^7  ^  ^ 

)f(  ^  ^  ^ 


154  :  UNIQUE  KEY  NUMBER  (BASED  ON  DATA  SHEET  NUMBER) 

5; 8  :  DATA  SHEET  NUMBER 

9158  1  INGREDIENT 


************************************************************* ***** ****** 
************************************************************************ 


GOTO  99 


9000  PRINT  %, 'ERROR  IN  OPEN  STATEMENT7 


*************************************************************** 


********* 


99  CALL  COVER  !  DISPLAY  A  COVER  SHEET  (EXTERNAL  SUBROUTINE) 


************************  INITIALIZE  VARIABLES  ***************** 


********* 


100  N.USERS  «■  0 
N- INGRED  =  0 
N  _  P  R  0  T  :=•■  0 
DATA..SH  =  0 
MANUF  =  7  7 
TRADE  =  7  7 
STOCK  ~  7  7 


R  =  7  7 
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DO  102  1=1 r 99 
USERS ( 1 )  =  '  ' 

102  CONTINUE 

DO  104  1=1.10 
XNGREDU)  =  '  ' 

104  CONTINUE 

DO  1.06  1  =  1.7 

F:'ROTEC  (  I )  -  '  •- 
.1.06  CONTINUE 

***************  ********  ****  *****  **  **********  **.*  **********  ******  ***  ****** 

CALL  CLEAR  !  CLEAR  THE  SCREEN 

CALL  BOLD  !  PRINT  IN  BOLD  TYPE 

*******************  FIRST  SET  OF  INPUT  PROMPTS  ********************* 

TYPE  4.  ESC.  '02',  '07',  * 33 ,  ' 43 , 1 66 ?  'MATERIAL  SAFETY  DATA  ENTRY' 

TYPE  6.  ESC.  '05',  '01'.  'DATA  SHEET  NUMBER  _ ' 

TYPE  2.  ESC.  '07',  '01',  'MANUFACTURER  ',  DASHES 

TYPE  2,  ESC,  '09',  '01',  'TRADE  NAME  ',  DASHES 

TYPE  3,  ESC,  'll',  '01',  ' STOCK/MANOF  CODE  ',  DASHES 


TYPE  6,  ESC,  '13', 

'01 '  , 

'YEAR 

DATA 

SHE  El 

OBTAINED 

CALL  NORMAL 

TYPE  If  ESC,  '05', 
ACCEPT  10,  DATA„SH 

'21' 

TYPE  5 ,  ESC,  '05', 
ACCEPT  12,  MANUF 

'27'  , 

E  S  C , 

ESC,  ' 

07' , 

'16' 

TYPE  5,  ESC,  '07', 
ACCEPT  12,  TRADE 

'56'  , 

ESC, 

ESC,  ' 

09'  , 

'16' 

TYPE  5,  ESC,  '09', 
ACCEPT  14,  STOCK 

'56  '  , 

ESC, 

ESC,  ' 

11  '  , 

'20' 

TYPE  5,  ESC,  '  11  '  , 
ACCEPT  15,  YEAR 

'40'  , 

ESC, 

ESC,  ' 

13'  , 

'30' 

TYPE  11,  ESC,  '13', 

'32' 

,  ESC 

CALL  BOLD 

*********************  ANY  CHANGES  NECESSARY  ?  ********************** 

TYPE  3,  ESC,  '10',  '01',  DASHES,  DASHES 

! 

TYPE  6,  ESC,  '17',  '01',  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES' 
TYPE  6,  ESC,  '19',  '03',  '1  . ,  .  TO  CHANGE  DATA  SHEET  NUMBER' 

TYPE  6,  ESC,  '20',  '03',  '2  .  TO  CHANGE  MANUFACTURER' 

TYPE  6 ,  ESC,  '21',  '03',  '3  . .  .  TO  CHANGE  TRADE  NAME' 

TYPE  6,  ESC,  '22',  '03',  '4  ...  TO  CHANGE  ST QCK/MANUF  CODE' 

TYPE  6,  ESC,  '23',  '03', '5  ,  TO  CHANGE  YEAR  DATA  SHEET  OBTAINED' 
TYPE  7,  ESC,  '24',  '03',  '6  ...  TO  CONTINUE',  ESC,  '1?<,  '44' 

CALL  NORMAL 

105  TYPE  5,  ESC,  '17',  '44',  ESC,  ESC,  '17',  '44'  ’ 
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ACCEPT  27?  ANSWER 


GO  TO  ( 200  ?  250  ?  300?  350?  400?  450)?  ANSWER 

M*»  ^  m1,  T1  M*1  *  M*1  rf\  r^  r^  r^  r^  r^  rjk  ^  ^  r^  r^  r^  ^  ?y»  ^  4s  *  *'  *  n'  *  r^  r^  ^  r^  r^  ^  T'  *  T  * ■  ^  ^  *  /p  iy.  T  ^  ^  M1  *  *  *  V^  r^  rf  <p  <p  ^p  <p  -T^  -T?  ^p  rp 


*  * 

*  THE  CODE  WHICH  CHANGES  ANY  PREVIOUS  INPUT  IS  ALL  BASICALLY  *. 

*  IN  THIS  FORMAT  t  FIRST?  ERASE  THE  OLD  ANSWER?  PUT  UP  NEW  * 

*  SPACES  AND  MOVE  THE  CURSOR  IN  POSITION  TO  ACCEPT  THE  NEW  ANSWER ♦  * 

*  IF  THE  PERSON  CHANGES  HIS  MIND?  HE  HITS  RETURN.  THIS  PUTS  * 

*  A  BLANK?  OR  ZERO?  INTO  THE  NEW  VALUE  (EG.?  NEW.DS)  .  IN  THIS  # 

*  CASE?  THE  OLD  ANSWER  MUST  BE  PUT  BACK  ON  THE  SCREEN.  * 

*  * 


200  TYPE  8?  ESC?  '05'?  '21'?  ESC?  ESC?  '05'?  '21'?  ' _ ' 

Type  i?  esc?  'os'?  '2i' 

ACCEPT  10?  NELI-DS 
IF  (NEW..DS  ♦  NE .  0)  THEN 
DATA..SH  >•■=  NEW-DS 
ELSE 

TYPE  9?  ESC?  '05',  '21 7 ?  DAT A_SH 
END  IF 

TYPE  11?  ESC?  '  05 '  ?  '25'?  ESC 
GOTO  105 

250  TYPE  25?  ESC?  '07'?  '16'?  ESC?  ESC?  '07'?  '16"?  DASHES 

TYPE  1?  ESC?  '07' ?  ' 16' 

ACCEPT  12?  NEU_M AN 
IF  (NEW.MAN  .NE.  '  ')  THEN 

MANUF  =  NEW..MAM 
ELSE 

TYPE  6?  ESC?  '07'?  '16'?  MANUF 
END  IF 

TYPE  11?  ESC?  '07'?  '56'?  ESC 
GOTO  105 

300  TYPE  25?  ESC?  '09'?  '16'?  ESC?  ESC?  '09'?  '16'?  DASHES 
TYPE  1?  ESC?  '09'?  '16' 

ACCEPT  12?  NEW_TRD 
IF  ( NEW-TRD  .NE.  '  ')  THEN 
TRADE  =  NEW_TRD 
ELSE 

TYPE  6?  ESC?  '09'?  '16'?  TRADE 
END  IF 

TYPE  11?  ESC?  '09'?  '56'?  ESC 
GOTO  105 

350  TYPE  26?  ESC?  '11'?  '20'?  ESC?  ESC?  '11'?  '20'?  DASHES 
TYPE  1?  ESC?  '11'?  '20' 

ACCEPT  14?  NEW-STK  . 

IF  ( NEW_STK  .NE.  '  ' )  THEN 
STOCK  =  NEW..STK 
ELSE 

TYPE  6?  ESC?  '11'?  '20'?  STOCK 
ENDIF 

TYPE  11?  ESC?  '11'?  '40'?  ESC 
GOTO  105 

400  TYPE  8?  ESC?  '13'?  '30'?  ESC?  ESC?  '13"?  '30'? 

TYPE  1?  ESC?  '13'?  '30'  ■ 

ACCEPT  15?  NEW_YR 
IF  (NEW_YR  .NE.  '  ')  THEN 
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¥■-  *  * 


YEAR  =  NEW. YR 
ELSE 

TYPE  6?  ESC?  '1.3'?  '30'?  YEAR 
END  IF 

TYPE  11?  ESC?  -13'?  •'32'?  ESC 

GOTO  105 

'k  ^  'V  ^ 'i'  'A'  ♦  ♦  'i'  ^  ^  'i'  'V  ♦  iV  ^  'V  ^  4“  'A'  'V  ♦  '1'  ‘fr  ^  'L?  ♦  ^  il'  'A'  •i'  "A?  'if  'V  ^  "A"  "i"  ^  ^  ^  ^  *4*  Yt‘  ^ ^  '.V  ♦  ^  ’■t  ^  ^  ^  ^  ^  ^ 

<p  *■  ?p  if.  /f •  *>  ^  ^  ^  ^  ^  *•  ^  ^  if^  ^  ^  ^p  *  ^  ^  ij‘.  <p  ^  Ip  Ip  ^  *-  if.  i^  ^  ip  ifi  ^  ifi  ."  if.  if  if.  *.  ip  ip  ip  ip  -y.  ip  <p  if.  ifi  ip  <p  ip  ip  if  ip  ip 


*  * 

*  ONCE  THE  USER  HAS  APPROVED  OF  THE  ANSWERS  HE  HAS  GIVEN  FOR  * 

%  THE  FIRST  SET  OF  INPUTS  (BY  ENTERING  A  6  -  TO  CONTINUE)?  THE  # 

*  DATA  SHEET  NUMBER  HE  HAS  GIVEN  MUST  BE  'OKAYED'  .  BECAUSE  OF  * 

*  THE  INDEXED  SEQUENTIAL  ACCESS  METHOD1 OF  THE  DATA  FILES?  THE  * 

*  FIRST  KEY  (DATA  SHEET  I)  MUST  BE  UNIQUE,  THUS?  BEFORE  GOING  ON?  * 

*  THE  PROGRAM  CHECKS  FOR  ANY  PREVIOUS  OCCURRANCES  OF  THE  GIVEN  * 

*  DATA  SHEET  NUMBER,  IF  IT  IS  FOUND  TO  BE  ALREADY  STORED?  THE  * 

%  USER  IS  FORCED  TO  GIVE  THE  CORRECT  ONE  r  OR  END  THIS  ENTRY  * 

*  SESSION.  '•  * 

^  % 

*  IN  THE  READ  STATEMENT?  THE  GIVEN  VALUE  IS  LOOKED  FOR  * 

*  (  KE Y  =  DATA._SH  ).  IF  IT  IS  NOT  FOUND  CAS  EXPECTED)?  AN  ERROR  # 

*  CONDITION  OCCURS  AND  CONTROL  TRANSFERS  TO  LINE  455,  * 

*  * 


?|i  ^i  ^  s^i  ^  vji  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^|jT  ^  ^  ^  ^ 

450  READ  (UNIT "10 ?  KEY  =  DATA_SH  ?  KEYID--0?  ERR==455)  CHECK.DS 
TYPE  IS,  ESC?  '17',  '01'?  ESC 


CALL  BOLD 


TYPE  20?  ESC?  '17'?  '01'?  'THIS  DATA  SHEET  NUMBER  HAS  ALREADY'? 

1  '  BEEN  USED?  IT  MUST  BE  UNIQUE. ' 

TYPE  6 i  ESC?  '19'?  '01'?  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES' 

TYPE  6,  ESC?  '20'?  '03'?  '1  ...  TO  CORRECT  DATA  SHEET  NUMBER' 

TYPE  6,  ESC?  '21'?  '03'?  '2  . TO  ENTER  A  DIFFERENT  DATA  SHEET' 

TYPE  6,  ESC?  '22'?  '03'?  '3  TO  END  THIS  SESSION  COMPLETELY' 


CALL  NORMAL 


TYPE  1?  ESC?  '19'?  '44' 


ACCEPT  27?  ANSWER 


GOTO  (452? 100? 9999) ?  ANSWER 


452  TYPE  8?  ESC?  '05'?  '21'?  ESC?  ESC?  '05'?  '21'?  ' _ ' 

TYPE  1?  ESC?  '05'?  '21' 

ACCEPT  10?  NEW_DS 
IF  (NEW..DS  ,NE.  0.)  THEN 
DATA.SH  =  NEW.,  DS 
ELSE 

TYPE  9?  ESC?  '05'?  '21'?  DATA.SH 
END  IF 

TYPE  11?  ESC?  '05'?  '27'?  ESC 
GOTO  450 


K#**##**##*******#*###**###*####**##**#***###***#*#* ##**##*###### ******* 


* 

IN  THE  FILES  USERS .DAT  ?  PROTECT . DAT  AND  INGRED.DAT?  MORE  * 

THAN  ONE  USER  (ETC.)  IS  POSSIBLE  FOR  ANY  ONE  DATA  SHEET.  I  HUS  # 

IN  STORING  THIS  DATA?  THE  SAME  DATA  SHEET  NUMBER  APPEARS  ON  1  # 

*  MANY  LINES,  SINCE  A  UNIQUE  NUMBER  IS  NEEDED  FOR  THE  PRIMARY  * 
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*  KEY  IN  STORING  THIS  DAT  A  *  ONE  IS  HADE ,  BASED  ON  THE  DATA  SHEET  * 

X  NUMBER ♦  UNIQ-DS  IS  CALCULATED,  (SEE  BELOW)  IN  WRITING  THE  DATA  # 

*  TO  THE  FILE,  1  IS  ADDED  TO  UNIQ-DS  AND  USED  AS  THE  UNIQUE  KEY  * 

*  FOR  THE  FIRST  USER 5  2  fs  ADDED  FOR  THE  SECOND  USER  AND  SO  ON,  * 

X  X 

iT1  *n  ^p  ^  ^  ip  ip  ip  ifv  ^  ^  ip  ip  ^  ip  p  /ft  ^  ip  ip  p  ^  ip  ^  ip  ip  ip  ip  ^  ip  ip  ip  ip  Ip  ip  ip  p  ^  p  ip  ip  ifi  p  p  p  p  p  Ip  p  ip  p  p  p  p  /f*’  ^  ip 

455  UNIQ-DS  =  100  *  DAT A_SH 

p  p  p  p  p  p  m'1  Ip  p  ip  ip  p  p  ip  p  p  ^  ip  ^  p  ip  ip  ip  ^  ^  i^i  ^  ^  p  ip  p.  p  i^  ^  ^  p  ir1  ^  p  ip  p  i|,  i^i  ip  i^  ijv  ip  p  i^  p  p  Ip  Ip  ip  ip  if:  ip  p  ifv  ip  p  ip  ^  p 


X  CLEAR  SCREEN ,  LEAVING  TITLE  AND  DATA  SHEET  NUMBER,  X 

X  PRINT  SECOND  SET  OF  INPUT  PROMPTS,  X 

X  X 

P  p  *  p  p  p  p  ^  p  p  p  /p,  p  p  P  P  P  P  P  P  p  P  P  P  P  P  P  P  P  P  P  P  p  P  p  P  P  P  P  p*  p  P  P  P  P  P  p  P  P  IT-  P  P  ifk  P  P  P  P  P  P  P  P  P  P  P  P  P  P  P  P  P 


TYPE  18,  ESC, 

'04  '  , 

'01 ' 

,  ESC 

CALL  BOLD 

TYPE  6,  ESC, 

'07'  , 

'01  '  , 

'HAZARD  CODES  t 

/ 

TYPE  6,  ESC, 

'08'  , 

'05'  , 

'H  _' 

TYPE  6,  ESC, 

'09'  , 

'05'  , 

'F 

TYPE  6,  ESC, 

'  10  '  , 

'05'  , 

'  R 

TYPE  4,  ESC, 

'  07  ‘ 7 

'37'  , 

'SPECIAL.  HAZARD 

CODE 

TYPE  6,  ESC, 

'12', 

'01  '  , 

'USER  CODES  J' 

TYPE  6,  ESC, 

'13', 

'  05'  , 

/  ; 

TYPE  1,  ESC, 

'01 '  , 

'01 ' 

CALL  NORMAL 

TYPE  1,  ESC, 
ACCEPT  16,  H 

'OS'  , 

'08' 

TYPE  5,  ESC, 
ACCEPT  16,  F 

'08'  , 

'09'  , 

ESC,  ESC,  '09', 

'OS' 

TYPE  5,  ESC, 
ACCEPT  16,  R 

'09  '  , 

'09  ■  , 

ESC,  ESC,  '10', 

'  OS ' 

TYPE  5,  ESC, 
ACCEPT  17,  SH 

'  10'  , 

'09'  , 

ESC,  ESC,  '07'? 

'59' 

CALL  BOLD 

#**####*#***#**  PRINT  OUT  USER  CODE  INPUT  GUIDE  LINES  XXXXXXXXXtXXXt 
ASSIGN  458  TO  .IRETN 

TYPE  3,  ESC ,  '15',  '01',  DASHES ,  DASHES 
457  TYPE  20,  ESC,  '17'  ,  '01',  'WHEN  ENTERING  USER  CODES  '» 

.1.  'PLEASE  FOLLOW  THESE  GUIDE  LINES' 

TYPE  19,  '  1,  IF  THERE  ARE  NO  USER  CODES,  LN 1 ER  "  NK '  " 

TYPE  19,  '  2.  PRESS  ''RETURN"  AFTER  EACH  CODE' 

TYPE  21,  '  3,  ENTER  USER  CODES  5  AT  A  TIME  UNI  II.  ALL  CODES'  r 

1  '  HAVE  BEEN  ENTERED' 

TYPE  19,  '  4,  WHEN  ALL.  CODES  HAVE  BEEN  ENTERED?  PRESS  RETURN '  '  ' 

CALL  NORMAL 
GOTO  IRETN 


458  TYPE  11,  ESC,  '07',  '63',  ESC 
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*  *r  *■ 


************************  ********  ******************************  ********** 


*  * 

*  USER  CODES  ARE  INPUT  IN  A  DO  LOOP  SINCE  THEY  ARE  STORED  * 

*  IN  AN  ARRAY ♦  BLANKS  FOR  USER  CODES  ARE  PUT  ON  THE  SCREEN  * 

FIVE  AT  A  TIME.  WHEN  CARRIAGE  RETURN  IS  DETECTED  -AS  A  BLANK)  * 
CONTROL  IS  TRANSFERRED  OUT  OF  THE  LOOP.  * 

* 


d,  J,  d,  o,  d,  -Xr  \±f  d.  «lr  d.  dr  dr  dr  dr  dr  dr  Or  ‘1’  'I'  ^  <i>  '(/  'X'  '•ir  dr  dr  ^  dr  ^  dr  dr  <dr  -Ar  \i>  \Lr  dr  dr  dr  dr  ^  ^  ^  sd-  d  ^  >dr  -X>  dr  id  ^  ^  'A*  'A*  "A*  'A'  ^  ‘d*  ^  ^  <A  Or  >lr  Or  Or 

^  ^  /fv  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  lPTT**TT**Tl^T't^T1^*****  t  ^  ^  ^  T1  ^  ^  ^  t  *  *  *  *  'P  'P  'P  d1  d1  *  ^  ^  ^  T*  ^  *P  'P  T  *  *P  T  T 

DO  500  1=0,19 
DO  500  J=l»5 

i.  =  urn  -  2 

IF  (J  .NE.  1)  THEN 
L  «  L  -  '3 
END  IF 

Y  «  CHAR  (L/10  +  48) 

Z  =  CHAR  <  L  -  10*<L/10)  +  48) 

IF  (J  ♦  E  R  ♦  1)  THEN 

TYPE  22,  ESC ,  M3',  Y,  Z 
ELSE 

CALL  BOLD 

TYPE  23,  ESC,  M.3M  Y,  Z,  ' 

CALL  NORMAL. 

L.  =  L  +  3 

Y  -=  CHAR  (L/10  +  48) 

Z  =  CHAR  (L.  -  10*<l.„/10>  +  48) 

TYPE  22,  ESC,  M3',  Y,  7. 

END  IF 

K  »  (1*5)  +  J 
IF  (K  . EQ ,  100)  GOTO  505 
498  ACCEPT  17,  USERS(K) 

IF  (J  .EQ,  5)  THEN 
CALL.  BOLD 

TYPE  8,  ESC,  '13',  '37',  ESC,  ESC ?  M3',  'OS', 

CALL.  NORMAL 
END  IF 

IF  ( USERS ( K )  .EQ.  '  ')  THEN 

TYPE  18,  ESC,  '17' ,  '01',  ESC 
CALL  BOLD 

*****  VERIFY  THAT  THEY  MEANT  TO  HIT  RETURN 

TYPE  20,  ESC,  '17' ,  '01',  'ARE  YOU  FINISHED  ENTERING  USER  ' , 

1  'CODES  ?  <Y/N> 

CALL  NORMAL 

TYPE  1,  ESC,  '17',  '48' 

ACCEPT  16,  YN 
IF  (YN  .EQ.  'Y'j  GOTO  505 
TYPE  18,  ESC,  '17',  '01',  ESC 
CALL  BOLD 

ASSIGN  499  TO  IRETN 

*****  WRITE  OUT  USER  CODE  INPUT  INSTRUCTIONS  AGAIN 


GOTO  457 
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499  TYPE  22,  ESC  ,  '13',  Y,  Z 
(30T0  498 

END  IF 

500  CONTINUE 

505  N-.USERS  =  K  -  1 

508  TYPE  18 »  ESC  ,  '17'?  '01',  ESC 

CALL  BOLD 

********************  ANY  CHANGES  NECESSARY  ?  *********************** 


TYPE 

6  ,  ESC , 

'  17'  , 

'01 '  , 

TYPE 

6 ,  ESC , 

'19'  f 

'  03 '  > 

TYPE 

6,  ESC, 

'20'  , 

'03'  , 

TYPE 

6,  ESC, 

'21', 

'03'  , 

TYPE 

6,  ESC, 

'22'  , 

'03'  , 

TYPE 

6 ,  ESC , 

'23'  , 

'03'  , 

TYPE 

7,  ESC, 

'24'  , 

'03'  , 

CALL 

NORMAL 

TYPE 

5,  ESC, 

'17'  , 

'  44'  » 

ACCEPT  27 1  ANSWER 

GO  TO 

(550,  600,  65 

0,  70 

TYPE 

8,  ESC, 

'08'  , 

'08'  , 

TYPE 

1»  ESC, 

'08'  , 

'08' 

ACCEPT  16,  NEW-H 

IF  ( NEW.. H  .NE 

»  '  '  ) 

THEN 

' 5  ...  TO  CHANGE  ANY  OF  THE  USER  CODES' 


H  “  NEU_H 

ELSE  ; 

TYPE  6,  ESC,  '08'  ,  '08'  ,  H 
END  IF 

TYPE  11,  ESC ,  'OS',  '09',  ESC 
GOTO  510 


600 

TYPE  8,  ESC,  ' 

09'  , 

'08'  , 

ESC, 

ESC, 

'09'  , 

'08',  '_' 

TYPE  1,  ESC,  ' 

09'  , 

'08'  . 

ACCEPT  16,  NEW 

...F 

IF  ( NEW...F  .NE. 

'  '  ) 

THEN 

F  »  NEW..F 

ELSE 

TYPE  6,  ESC, 

'09  ' 

,  '08' 

,  F 

END  IF 

TYPE  11,  ESC, 
GOTO  510 

'  0  9  '  , 

'  0  9  '  , 

ESC 

650 

TYPE  8,  ESC,  ' 

1 0 '  , 

‘  0  8 ' , 

ESC, 

ESC, 

'  1 0  '  , 

'08', 

TYPE  1,  ESC,  ' 

10', 

'08'  ; 

ACCEPT  16,  NEW 

...R 

IF  (NEW ..  R  .NE. 

’  '  ) 

THEN 

R  =  NEW-.R 

ELSE 

TYPE  6,  ESC, 

'  1 0  ' 

,  '08' 

,  R 

END  IF 

TYPE  11,  ESC, 
GOTO  510 

'10', 

'  09 '  , 

ESC 

700 

TYPE  8,  ESC,  ' 

07'  , 

'59  '  , 

ESC, 

ESC, 

'  07'  , 

'59',  ' _ ' 

TYPE  1,  ESC,  '07',  '59' 
ACCEPT  17,  NEW_SH 
IF  ( NEU-.SH  ,  NE .  '  '  )  THEN 
SH  “  NEW..SH 
ELSE 


HYPE  6, 
END  IF 

ESC, 

'07'  • 

'59' 

,  SH 

TYPE  11, 
GOTO  510 

ESC, 

'07', 

'63'  , 

ESC 

750  TYPE  18, 

ESC, 

'17', 

'01  '  , 

ESC 

CALL  BOLD 

TYPE  20,  ESC,  '17',  '01',  'TO  CHANGE  A  USER  CODE,  SIMPLY  ', 
1  'PRESS  "RETURN"  UNTIL  YOU  REACH' 

TYPE  21,  '  THE  CODE  YOU  WISH  TO  CHANGE,  AND  THEN  PUT  IN', 

1  '  THE  CORRECT  CODE,' 

CALL  NORMAL 

TYPE  1 1 ,  ESC ,  '13',  ' 05 ' ,  ESC 

DO  765  1=0, (N_USER3/6) 

DO  755  J= 1 , 5 

K  =  (1*5)  4-  J 
L  =  (J*7)  -  2 

Y  ~  CHAR  ( L/l 0  4  48) 

Z  *  CHAR  ■:  L.  -  10* (L/10)  4  48) 

TYPE  24,  ESC,  '13',  Y,  Z,  USERS (IO,  ' 

755  CONTINUE 

DO  760  J-1,5 

K  --  (1*5)  4  J 

IF  ( K  , GT ,  N. USERS)  GOTO  508 
l.  =  (  J  *  7 )  --  2 

Y  =  CHAR  ( L / 1 0  4  48) 

Z  =  CHAR  <L  -  10*  ( L/10 )  4  48) 

TYPE  32,  ESC,  '13',  Y,  Z,  ' _ '  ,  ESC,  '04' 

ACCEPT  17,  NEW-US 
IF  ( NEW_US  .ME.  '  ')  THEN 
USERS  ( K  )  =-  N E U _ U S 
L  =  L  4  4 

Y  -•  CHAR  (L/10  4  48) 

Z  “  CHAR  (L  --  10*  (L/10)  4  48) 

TYPE  24,  ESC ?  '13',  Y,  Z,  '  '?  USERS (K41) 

ELSE 

TYPE  23,  ESC,  '13',  Y,  I,  USERS(K) 

END  IF 

760  CONTINUE 
765  CONTINUE 
GOTO  508 

800  TYPE  18,  ESC,  '06',  '01',  ESC 


CALL  BOLD 
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ASSIGN  803  TO  IRETN 


TYPE  6*  E  SC  r  '07',  ' 01 '.  'INGREDIENTS  i' 

****3K^*********>|C^*  INGREDIENT  INPUT  INSTRUCTIONS  ******************* 


TYPE 

37 

ESC  r  ' 

19"  7 

"01 "7  DASHES  7  DASHES 

802  TYPE 

20  7 

ESC  7 

'  2  1  '  7 

'03' 7  'IF  THERE  ARE  NO  INGREDIENTS ,  E 

NTER  '  7 

1 

/ 

'  "NK" 

/  / 

TYPE 

207 

ESC  7 

t  22 '  * 

'03 '7  'PRESS  "RETURN"  AFTER  EACH  '7 

1 

/ 

INGREDIENT  ' 

TYPE 

207 

ESC  7 

"23"  7 

'03' 7  'WHEN  ALL.  INGREDIENTS  HAVE  BEEN 

'  7 

1  '  ENTERED »  PRESS  •"RETURN'’" 

GOTO  IRETN 


803  DO  805  1=1 plO 
L  =  I  +  7 

Y  ■-  CHAR  ( L/10  +  43) 

Z  =  CHAR  (L  -  10* (L/10)  +  48) 

TYPE  28p  ESC  7  Y?  2p  'OS'?  DASHES 

805  CONTINUE 


CALL.  NORMAL 
DO  810  1=1 7 10 


Y  --  CHAR  (L/10  +  48) 

2  =  CHAR  (L  -  10* (L/10)  +  48) 

TYPE  2?  7  ESC  j  Y  7  7.,  '05' 

808  ACCEPT  30 ,  INGRES ( I ) 

TYPE  31t  ESCt  Y  7  Z,  '55' 7  ESC 

IF  ( INGREIK I )  *ER.  '  ' )  THEN 
CALL  BOLD 

TYPE  18  7  ESC 7  '21' t  '01',  ESC 

*****  VERIFY  THEY  WANTED  TO  HIT  RETURN 

TYPE  20  ?  ESC  7  '21',  '01',  ‘ ARE  YOU  FINISHED  ENTERIN 
1  "INGREDIENTS  ?  (Y/N)  " 

CALL  NORMAL 

TYPE  lp  ESC j  '21'p  "49" 

ACCEPT  167  YN 

TYPE  187  ESC  7  '21' 7  'Ol'p  ESC 
IF  (YN  .  ER  ♦  'Y')  GOTO  815 
CALL  BOLD 

ASSIGN  809  TO  IRETN 

*****  WRITE  OUT  INSTRUCTIONS  FOR  INGREDIENT  INPUT  AGAIN 


809 


GOTO  802 
CALL  NORMAL 
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TYPE  29 ?  ESC*  Y  >  Z?  '05' 
GOTO  800 


810  CONTINUE 

815  N_.  INGRED  ~  I  -  1 

817  TYPE  IS*  ESC?  '21'*  '01'?  ESC 


CALL.  BOLD 


tt* %%*%%%%%*%%%**%%%  ANY  CHANGES  NECESSARY  ?  #*#######**##*#*#####** 

TYPE  6*  ESC?  '21'?  '01'?  'PLEASE  ENTER  ONE  OP  THE  FOLLOWING  CODES' 

TYPE  6*  ESC?  '23'?  '03'*  '1  , ,  .  TO  CHANGE  ANY  OF  THE  INGREDIENTS' 

TYPE  7*  ESC?  '24'?  '03'*  '2  *.*  TO  CONTINUE'?  ESC?  '21'?  '44' 


CALL  NORMAL 

820  TYPE  5?  ESC?  '21'?  '44'?  ESC?  ESC*  '21'?  '44' 
ACCEPT  27?  ANSWER 


GO  TO  (850*  900) *  ANSWER 


350  TYPE  18?  ESC?  '21'?  '01'*  ESC 
CALL  BOLD 

TYPE  20*  ESC*  '21'?  '01'*  'TO  CHANGE  AN  INGREDIENT*  SIMPLY  '? 
1  'PRESS  "RETURN"  UNTIL  YOU  REACH' 

TYPE  21?  '  THE  ONE  YOU  WISH  TO  CHANGE?  AND  THEN  PUT  IN'? 

1  '  THE  CORRECT  INGREDIENT* ' 

CALL  NORMAL 


DO  855  1=1 ?N_ INGRED 


Y  =  CHAR  (L./10  +  48) 

Z  =  CHAR  (L  -  10*(L./10>  +  48) 

TYPE  28?  ESC?  Y*  Z?  '05'?  DASHES 
TYPE  29?  ESC?  Y?  Z?  '05' 

ACCEPT  30?  NEW _I D 

IF  ( NEW -I D  *  NE  .  '  ')  THEN 


TYPE 

31  , 

ESC?  Y? 

L  f 

'55'?  ESC 

INGRED ( I ) 

=  NEW_ 

ID 

ELSE 

TYPE 

28? 

ESC?  Y? 

2, 

'05'?  INGRED ( I ) 

END  IF 


855  CONTINUE 


GOTO  817 


900  TYPE  18?  ESC?  '06'?  '01'?  ESC 


CALL  BOLD 


TYPE  6?  ESC?  '07'?  '01'*  'PROTECTIVE  DEVICES  t' 
TYPE  3?  ESC*  '17'*  '01'?  DASHES*  DASHES 
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ASSIGN  903  TO  I  RET  N 


***************  PROTECTIVE  DEVICE  INPUT  INSTRUCTIONS  **************** 

902  TYPE  20  ?  ESC?  '19'?  '03'?  'IF  THERE  ARE  NO  PROTECTIVE.  DEVICES?  '? 

1  'ENTER  "NK"' 

TYPE  6 1  ESC?  '20'?  '03'?  'PRESS  "RETURN"  AFTER  EACH  DEVICE' 

TYPE  20?  ESC?  '21 '?  '03'?  'WHEN  ALL  PROTECTIVE  DEVICES  HAVE  '? 

1  'BEEN  ENTERED?  PRESS  "RETURN"' 

GOTO  IRETN 

903  BO  905  1  =  1 ?  7 

L  a  I  +  8 

Y  =  CHAR  ( L/10  +  48) 

Z  =  CHAR  (L  -  10*  <  L/ 10 )  +  48) 

TYPE  33?  ESC?  Y?  Z?  '05'?  DASHES 
905  CONTINUE 

CALL  NORMAL 
HO  910  1  =  1 ?  7 
L  =  I  +  8 

Y  =  CHAR  (L/10  +  48) 

2  =  CHAR  (L  -  10*  <  L/ 10 )  f  48) 

TYPE  29?  ESC?  Y?  2?  '05' 

908  ACCEPT  34?  PROTEC < I > 

TYPE  31?  ESC?  Y?  Z?  '20'  ?  ESC 

IF  (PROTEC (I)  ,  EG?  '  ')  THEN 
CALL  BOLD 

TYPE  18?  ESC?  '19'?  [01 '?  ESC 
*****  VERIFY  THEY  WANTED  TO  HIT  RETURN 

TYPE  20?  ESC?  '19'?  '01'?  'ARE  YOU  FINISHED  ENTERING  '? 

1  'PROTECTIVE  DEVICES  ?  (Y/N) 

CALL  NORMAL 

TYPE  1?  ESC?  '19'?  '57' 

ACCEPT  16?  YN 

TYPE  18?  ESC?  '19'?  '01'?  ESC 
IF  (YN  , EG?  'Y'>  GOTO  915 
CALL  BOLD 

ASSIGN  909  TO  IRETN  •  - -y 

*****  WRITE  OUT  INSTRUCTIONS  FOR  PROT?  DEVICE  INPUT  AGAIN 
GOTO  902 

909  CALL  NORMAL 

TYPE  29?  ESC?  Y?  Z?  '05' 

GOTO  908 
END  IF 
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910  CONTINUE 


915  N  _  P  R  0  T  =  I  --  1 
917  TYPE  18»  ESC ,  '19',  '01',  ESC 
CALL  BOLD 

TYPE  6,  ESC,  '19''  '01',  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES 
TYPE  20,  ESC,  '21',  '03',  '1  ...  TO  CHANGE  ANY  OF  THE. PROTECTIVE' 
1  '  DEVICES' 

TYPE  7,  ESC,  '22',  '03',  '2  ...  TO: CONTINUE' ,  ESC,  '19',  '44' 

CALL  NORMAL 

920  TYPE  5,  ESC,  '19',  '44',  ESC,  ESC,  '19',  '44' 

ACCEPT  27,  ANSWER 
GO  TO  (950,  1000),  ANSWER 
950  TYPE  13,  ESC,  '19',  '01',  ESC 
CALL  BOLD 

TYPE  20,  ESC,  '19',  '01',  'TO  CHANGE  A  PROTECTIVE  DEVICE,  SIMPLY' 

1  '  PRESS  "RETURN"  UNTIL  YOU  REACH' 

TYPE  21,  '  THE  ONE  YOU  WISH  TO  CHANGE,  AND  THEN  PUT  IN', 

1  '  THE  CORRECT  DEVICE.' 

CALL  NORMAL 

DO  955  1=1 , N_PROT 

L  =  I  +  8 

Y  ■-  CHAR  (L/10  +  48) 

Z  =  CHAR  (L  -  10# (L/10)  +  48) 

TYPE  33,  ESC,  Y,  Z,  '05',  DASHES 
TYPE  29,  ESC,  Y,  Z,  '05' 

ACCEPT  30,  NEW„ PD 
IF  (NEU-PD  .NE.  '  ')  THEN 

TYPE  31,  ESC,  Y,  Z,  '20',  ESC 
PROTEC  (I)  ~  NEW..PD 
ELSE 

TYPE  33,  ESC,  Y,  Z,  '05',  PROTEC(I) 

END  IF 

955  CONTINUE 
GOTO  917 

1000  TYPE  18,  ESC,  '05',  '01',  ESC 

TYPE  6,  ESC,  '07',  '01',  'PLEASE  WAIT' 

***#**************;K*  WRITE  OUT  THE  DATA  #*#****#*****###*#*#*##** 

WRITE  ( UNI T  =  1 0  )  DATA..SH,  MANUF  ,  TRADE,  STOCK 
WRITE  (UN1T  =  11 )  DATA-SH,  N ..USERS ,  N-INGRED ,  N_PROT, 

1  YEAR,  H,  F,  R,  SH 


DO  1010  1=1 , N-USERS 
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WRITE  (UNIT-12)  (UNIQ..DS  +  I),  DAT A_SH ?  USERS(I) 
.1010  CONTINUE 


DO  1020  1  =  1  ?  N_  INGRED 

WRITE  ( UNIT  =  1 4  5  (UNIG-DS  +1),  DATA_SH»  INGRED ( I ) 

1020  CONTINUE 

DO  1030  1  =  1 ?  N _ P R 0 T 

WRITE  <UNIT  =  13)  (UNIQ..DS  +  I)?  DAT  A_SH  ?  PROTEC(I) 

1030  CONTINUE 

^  iL1  ^  ^  ^  ilf  ^  ^  ^  ^  *X?  df  df  df  sd?  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d 

^  ^  ^  ^  ^  ^  ^  /p  p  p  p  p  p  p>  ^  ^  ^  p  ^  ^  p  ■*  ^  P  p  p  p  p  p  p  p  P  p  p  p  p  P  p  p  p  p  p  p  P  P  *•  p  p  p  p  P  *•  P  P  P  p]  P  P  P  P  P ■  p  P  p  P  p  P 

TYPE  18 ?  ESC?  '  05 '  ?  '01',  ESC 
CALL  BOLD 

TYPE  36  ?  ESC  !  BLINK  NEXT  LINE 

TYPE  35?  ESC?  '08' r  '03'?  'THANK  YOU  FOR  ENTERING  DATA  SHEET  *  '? 

.1  DAT  A  ...  SH 

CALL  NORMAL 

TYPE  6 1  ESC?  'll'?  '03'?  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES' 
TYPE  6?  ESC?  '13'?  '05'?  '1  .  ..  TO  ENTER  ANOTHER  DATA  SHEET' 

TYPE  6?  ESC?  '14'?  '05'?  '2  ...  TO  END  THIS  ENTRY  SESSION' 

CALL  NORMAL 

TYPE  1?  ESC?  '11'?  '46' 

ACCEPT  27,  ANSWER 

GOTO  (100?  9999)?  ANSWER 

9999  CALL  CLEAR 

TYPE  1?  ESC?  '01'?  '01' 

'A'  1'  d?  "I'  ‘X*  ^d  d  d  d  d  d  d  d  -Jf  d  -J/  d  d  «J/ 

P  P  P  P  P  P  P  P  P  P  P  P  P  P  P  *■  ?P  if-  p  p  *•  P  P  P  P  P  p  P  P  ?P  P  P  P  P  P  P  P  P  P  P  P  P»  P  *  if-  P  P  P  P  P  P  p*  ?P  P  *  p  p  P  P  P  P  P-  P  P*  P*  P  P  ?r 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


FORMAT  ( 1 X  ?  A 1  ?  '  I!  '  ?  A2  ?  '  ?  '  ?  A2  ?  '  H  '  ?  $ ) 

FORMAT  ( IX  ?  A 1 ? ' T ' ?  A2  ? ' ? ' 7  A2  ? ' H ' ?  A  ?  A 4 0 ) 

FORMAT  <  IX?  A1  ?  '  L"  '  ?  A 2 ?  '  ?  '  ?  A 2 ?  '  H  '  ?  A?  A20) 

FORMAT  (1X?A1?'C'?A2?'?'»A2?'H'?3A1?A) 

FORMAT  ( 1 X  ?  A 1 ? ' C ' ?  A  2  ? ' ? ' ?  A  2  ? ' H ' ?  A1?'CK'?  Al.r' C ' ?  A2  ? ' 
FORMAT  (IX? A1 ? ' C ' ? A2? ' ? ' ?A2? 'H' ?A?t) 

FORMAT  ( 1 X  ?  A 1  ?  '  I.  '  ?  A2  ?  '  ?  '  ?  A2  ?  '  H  '  ?  A?  A 1  r  '  C  '  ?  A  2  ?  '  ?  '  ?  A  2  ? 
FORMAT  ( 1X?A1  ? 'C  '  ?A2?  '  ?A  '  ?A2? 'H' ?  A1?'CK'?  A 1  ?  '  C  '  ?  A  ?  ?  ' 
FORMAT  ( 1 X  ?  A 1 f ' L ' ?  A 2  ? ' ? ' ?  A 2  ? ' H ' ?  1 4  ?  $  > 

FORMAT  (14) 

FORMAT  ( IX?  A1  ?  '  C  '  ?  A2?  '  '  ?A2? 'H' ?  A1»'CK') 

FORMAT  ( A40 ) 

FORMAT  ( 1 X  ?  A 1 ) 

FORMAT  ( A20 ) 

FORMAT  ( A2 ) 

FORMAT  (Al) 

FORMAT  ( A4 ) 

FORMAT  ( IX  ?  Al ? ' C ' 7  A2  ? ' ? ' ?A2?  'H'r  AIj'IJ') 

FORMAT  (IX? A) 

FORMAT  ( 1 X  ?  A 1 ? ' I ' ?  A2  ? ' ? ' ?  A2  ?  ' H ' 7  A  ?  A ) 

FORMAT  (IX ? A? A) 

FORMAT  ( 1 X  ?  A 1 ? ' C ' r  A2  ? ' ? ' ?  A 1 7  A 1 ? ' H ' ?  $  ) 

FORMAT  ( 1 X  ?  A 1  ?  '  C  '  ?  A 2  ?  '  ?  '  ?  A 1.  ?  A 1  ?  '  H  '  ?  A  ?  $  ) 

FORMAT  ( IX?  Al  ?  '  C  '  ?  A2?  '  ?‘  '  r  Al  7  A)  ?  'H'  ?  A?  A?  $) 


? A2? 'H' ? $) 

H '  ?$> 

?  A  2 ? 'H' 7  A) 


ii-ii 


:L00 


CHARACTER*40 

CHARACTER*20 

CHARACTERS 

CHARACTER 

CHARACTER *4 

CHARACTERS 15 

CHARACTERS50 


MANUF?  TRADE,  NEW-MAN ?  NEU.TRD 
STOCK,  NEW.STK 
YR,  NEW-YR 

H  ,  F  i  R  ,  Y  N  ?  N  E  W  _  H  ,  N  E  W ...  F  ,  N  E  W  _  R 
SH,  USERS ( 99 )  ,  NEW-SH?  NEU-US 
PROTEC (7),  NEW-PR 
I NGREO  ( 1 0  !•  ,  NEW_  I N 


INTEGERS 4 
I NTEGERS2 
INTEGER 


D A T A _SH  ,  UN  J  G D S  ,  N E W _. 0 S  ,  C H E C K _ D S 

N...  USERS?  N-PROT,  N-IHGRED 

ANSWER 


0 PEN  <  UNIT  ~  1 0  ,  F 1 L E ~  '  C BOESSMAN N .  H A T  S A F E T  Y II M A N l .1 F A C  *  D AT', 

1  STATU S  - '  0 L D  '  »  0 R  G  A N I Z  A T 1 0  N  = v  l  N D E X E  ).• '  .  AC C E S S *  'KEYED' 

2  RE  C  0  RBTYF'K-- '  VARIABLE  '  ?  F  0  R  M  ■  '  U  H  F  0  R  H  A  T  T  E  D  '  ,  P  E  C  L  *  2  6  , 

3  K  E  Y  =  ( 1  5  4  !  I N  T  E  G  E  R »  5M4JCH  A  R  A  C  T  E  R  ?  4  5 1 8  4  *  C  H  A  R  A  C  T  E  R  ? 

4  85, 104 * CHARACTER ) »  1 OST  AT~ I  OS ?  EftR-9000) 


OPEN  (UNIT-11 ?  FILE” ' CBUESSHANN , MATSAFETY3HC0DES ♦ DAT  '  ? 

1  STATUS™ ' OLD ' ?  ORGANIZATION- > INDEXED '  ,  ACCESS- 'KEYED ' , 

RECORDTYPE-'  VARIABLE  '  ?  FORM®  '  UNFORMATTED  '  »  RECL-5? 

KEY-  (1*4* INTEGER  ?  5:6! INTEGER  ?  7:8 J INTEGER?  9 J 10 1 INTEGER ? 
1 1 ! 1 2  t  CHARACTER ,  13 J 13 : CHARACTER ,  14*14: CHARACTER , 

15 : 15  t  CHARACTER ,  16 1 1 9 ! CHARACTER )  ,  IOSTAT-IOS »  ERR=9000) 


0  P  E  N  (UNIT  * 1  2  ,  F I L  E~  '  C  BOESSMANN .  MA  T  S  A  I-  ETYilUSE  R  S  .DAT'  ? 

1  STATUS = '  0 L. D  '  ?  ORGANIZATION «  '  I N D F X E D  '  -  A C C fcl S S ~  '  K E Y F D  '  , 

2  R E C 0 R D T YPE”  '  VARIABLE  '  ,  F 0 R M -  '  II N F 0 F: M A 'l  'I  E D  '  r  ft E C L -■  3  ? 

3  K  E  Y  = <  1 1  4  J I N  T  E  G  E  R  ?  5  { 8  1 1 N  T  E  B  E  H  ?  9  ! 1 2  1 0  H  A  P  A  C  T  E  R  '  r 

4  I OSTAT” I  OS ,  ERR-9000  ) 


0  P  E  N  (UN  I T  =13?  F I L  E  =  '  C BOESSMANN . MA  T  S  A  F  E  T  Y  ;i  P  R  0  T  E  C  T  ,  D  A  T  '  ? 

1  STATUS  =  '  0  LB'?  0  R  G  A  N I Z  A  T 1 0  N  -  '  1 N  £■  F  X  E  U  '  ,  A  C  C  E  S  8  -  '  K  E  Y  L  D  '  ? 

2  RECORDTYPE-' VARIABLE' ?  FORM- ' UNFORMATTED ' ?  RECL-6? 

3  KEY=( 1  Ml  INTEGER?  5 J 8 1  INTEGER ?  9 : 23 : CHARACTER > r 

4  JOSTAT-IDS?  ERR-9000)  ; 

OPEN  (UNIT-14?  FJ.LE='  C BOESSMANN ♦ MATSA F E T Y 3 1 N G R E D  » D AT'  , 

1  S T  A T I.J S=  '  OLD  '  ?  OR G A N I  Z  A T 1 0 N ~  '  I N D E X E D  '  ?  A C C E S S '  K E Y E D  '  , 

2  RECORD  f  YPE®  '  VAR  I  ABLE  '  ?  FORM  =  '  UNFORMATTED  '  ?  RFCL-15? 

3  KEY- <1.4* INTEGER ,  5:8! INTEGER »  9  J 58 J CHARACTER ) ? 

4  I OST  AT- 1 OS ,  ERR  =  9000 ) 


TYPE  800,  '  ' 

TYPE  300,  'ENTER  DATA  SHEET  NUMBER' 

TYPE  800,  '—  THIS  NUMBER  MUST  BE  UNIQUE ' 

ACCEPT  700,  DATA.SH 

TYPE  800,  '  ' 

TYPE  800?  'ENTER  THE  NAME  OF  THE  MANUFACTURER' 

TYPE  800?  A  MAXIMUM  OF  40  CHARACTERS  IS  ALLOWED' 

ACCEPT  701,  MANUF 


TYPE  800,  '  ' 

TYPE  800?  'ENTER  THE  TRADE  NAME' 

TYPE  800?  '—  A  MAXIMUM  OF  40  CHARACTERS  IS  ALLOWED' 
ACCEPT  701,  TRADE 

TYPE  800,  '  ' 

TYPE  800,  'ENTER  THE  STOCK/MANUFACTURER  NUMBER' 

TYPE  800,  A  MAXIMUM  OF  20  CHARACTERS  IS  ALLOWED' 

ACCEPT  702,  STOCK  Appendix  2  A  -  1 


TYPE  800  y 

t  / 

TYPE  800? 

' ENTER  THE  YEAR  THE  DATA  SHEET  WAS  OBTAINED ' 

TYPE  8007 

2  CHARACTERS' 

ACCEPT  703 

7  YR 

TYPE  8007 

/  / 

TYPE  800? 

'ENTER  HAZARD  CODE  H  ---  1  CHARACTER' 

ACCEPT  704 

7  H 

TYPE  8007 

/  / 

TYPE  800? 

'ENTER  HAZARD  CODE  F  —  1  CHARACTER' 

ACCEPT  704 

7  F 

TYPE  8007 

/  / 

TYPE  8007 

'ENTER  HAZARD  CODE  R  --  1  CHARACTER' 

*■ 

ACCEPT  704 

j  R 

TYPE  SOOv 

f  t 

TYPE  8OO7 

'ENTER  ANY  SPECIAL.  HAZARD  CODE  4  CHARACTER! 

;;  ALLOWED' 

ACCEPT  705 

?  SB 

125 

TYPE  800? 

/  / 

TYPE  SOO7 

'AT  PRESENT f  THE  DATA  IS  \  ' 

TYPE  8047 

'DATA  SHEET  NUMBER  i  '7  DAT A..SH 

TYPE  805. 

'MANUFACTURER  l  '7  MANUF 

TYPE  8057 

'TRADE  NAME  I  '7  TRADE 

TYPE  8057 

'  S  T  0  C  K  /  M  A  N  U  F  €  0  D  E  J  '  7  S  T  0  C  K 

TYPE  805 r 

'YEAR  DATA  SHEET  OBTAINED  5  '7  YR 

TYPE  8057 

'HAZARD  CODE  H  f  ' ?  H 

TYPE  805y 

'HAZARD  CODE  1-  2  '7  F 

TYPE  8057 

'HAZARD  CODE  R  5  '7  R 

TYPE  80S  7 

'SPECIAL.  HAZARD  CODE  l  '7  SH 

TYPE  800? 

/  / 

TYPE  8OO7 

'PLEASE  ENTER'  ONE  OF  THE  FOLLOWING  CODES' 

TYPE  800 7 

'  1  TO  CHANGE  DATA  SHEET  NUMBER' 

TYPE  8OO7 

'  2  TO  CHANGE  MANUFACTURER’ 

TYPE  8OO7 

'  3  77,  TO  CHANGE  TRADE  NAME ' 

TYPE  800 7 

'  4  ,7*  TO  CHANGE  STOCK /MANOR  COM. 

TYPE  3007 

'  5  TO  CHANGE  YEAR  DATE  SHEET  OBTAINED' 

TYPE  8007 

'  6  .7,  TO  CHANGE  HAZARD  CODE  H 

TYPE  3007 

'  7  ,7,  TO  CHANGE.  HAZARD  CODE  F' 

TYPE  800 7 

'  3  777  TO  CHANGE  HAZARD  CODE  R ' 

TYPE  8OO7 

'  9  ...  TO  CHANGE  THE  SPECIAL  HAZARD  CODE' 

TYPE  800 7 

'  10  ...  TO  CONTINUE' 

ACCEPT  706 

7  ANSWER 

• 

GOTO  (ISO? 

1757  200r  2257  250 7  275,  500,  325?  350?  375  > 

?  ANSWER 

150 

TYPE  80 It 

'THE  DATA  SHEET  NUMBER  IS  PRESENTLY  '?  DAT A._S 

H 

* 

TYPE  300 7 

'PLEASE  ENTER  THE  NEW  DATA  SHEET  NUMBER' 

ACCEPT  700 

»  NEW..  DS 

IF  <NEW_DS 

, NE .  0)  THEN 

DATA..SH 

~  NEW..DS 

TYPE  SOI 

?  'THE  DATA  SHEET  NUMBER  IS  NOW  '7  DATA..SH 

ELSE 

TYPE  301 
END  IF 

GOTO  125 

7  'THE  DATA  SHEET  NUMBER  IS  STILL  '?  DAT A_SH 

175 

._TYPE  302.7  .. 

'THE  MANUFACTURER  IS  PRESENTLY  '7  MANUF 

A2A  -  2 

TYPE  800 i  'PLEASE  ENTER  THE  NEW  MANUFACTURER ' 
ACCEPT  701 ?  NEWSMAN 
IF  (NEW. ..MAN  * N E  •  ‘  '  )  THEN 

MANUF  =  NEW-MAN 

TYPE  802 »  '  THE  MANUFACUiEH  IS  NOLI  '  ,  MANUF 
ELSE 

T  Y  P  E  8  0 2 »  '  T  H  E  M  A  N  U  FA  CUTE  R  IS  STL  L  I.  '  ?  M  A  N  U  F 
END  IF 
GOTO  125 


200  TYPE  8027  'THE  TRADE  NAME  IS  PRESENTLY  '  ?  TRADE 
TYPE  8OO7  'PLEASE  ENTER  THE  NEW  TRADE  NAME' 
ACCEPT  7017  NEW-.TRD 
IF  (NEW.TRD  4  NE .  '  ')  THEN 

TRADE  =  NEU.-TRD 

TYPE  802 >  'THE  TRADE  NAME  IS  NOW  '7  TRADE 
ELSE 

TYPE  802f  'THE  TRADE  NAME  IS  STILL  '7  TRADE 
END  IF 
GOTO  125 


225  TYPE  8027  'THE  STQCK/MANUF  CODE  IS  PRESENTLY  '7  STOCK 
TYPE  800 7  'PLEASE  ENTER  THE  NEW  STQCK/MANUF  CODE' 
ACCEPT  702 7  NEW-STK 
IF  (NEW-STK  .NE.  '  ')  THEN 

STOCK  NEW-STK 

TYPE  802r  'THE  STQCK/MANUF  CODE  IS  NOW  '  7  STOCK 
ELSE 

TYPE  802 7  'THE  STQCK/MANUF  CODE  IS  STILl  '7  STOCK 
END  IF 
GOTO  125 


250  TYPE  802 >  'THE  YEAR  IS  PRESENTLY  '7  YR 
TYPE  800»  'PLEASE  ENTER  THE  NEW  YEAR' 
ACCEPT  702  7  NEW ...  Y  R 
IF  (NEW...  YR  .  NE .  '  >  THEN 

YR  --  NEW_. YR 

TYPE  8027  'THE  YEAR  IS  NOW  '7  YR 
ELSE 

TYPE  802r  'THE  YEAR  IS  STILL  '7  YR 
ENDIF 
GOTO  125 


275  TYPE  8027  'HAZARD  CODE  H  IS  PRESENTLY  'j  H 

TYPE  800 7  'PLEASE  ENTER  THE  NEW  HAZARD  CODE  H' 
ACCEPT  7047  NEW-H 
IF  (NEW_H  .NE.  '  ')  THEN 

H  =  NEW-H 

TYPE  8027  'HAZARD  CODE  H  IS  NOW  H 
ELSE 

TYPE  802»  'HAZARD  CODE  H  IS  STILL  '7  II 
END  I F 
GOTO  125 


300  TYPE  802*  'HAZARD  CODE  F  IS  PRESENTLY  F 

TYPE  800?  'PLEASE  ENTER  THE  NEW  HAZARD  CODE  I-' 
ACCEPT  704.  NFU...F 

IF  (NEW.F  .NE.  '  ')  THEN  A2"A  "  3 


F  =  NEW..F 

TYPE  802  f  'HAZARD  CODE  F  IS  NOW  '?  F 
ELSE 

TYPE  802  ?  'HAZARD  CODE  F  IS  STILL.  '  r  F 
ENDIF 
GOTO  120 


325  TYPE  802*  'HAZARD  CODE  R  IS  PRESENTLY  R 

TYPE  800 r  'PLEASE  ENTER  THE  NEW  HAZARD  CODE  R' 

ACCEPT  704  .  NEW_R 

IF  ( NEW...R  ,  NE *  '  ')  THEN 

R  =  NEW...  R 

TYPE  802?  'HAZARD  CODE  R  13  NOW  '  -  R 
ELSE 

TYPE  802)  'HAZARD  CODE  R  IS  STILL  ')  R 
ENDIF 
GOTO  125 


350  TYPE  802)  'THE  SPECIAL.  HAZARD  CODE  IS  PRESENTLY  '  .  SH 
TYPE  800)  'PLEASE  ENTER  THE  NEW  SPECIAL  HAZARD  CODE ' 
ACCEPT  705)  NEW...SH 
IF  (NEW..SH  ,  N  E  *  '  ')  THEN 

SH  ■-  NEW..SH 

TYPE  802 1  'THE  SPECIAL.  HAZARD  CODE  IS  NOW  '  -  SH 
ELSE 

TYPE  802)  'THE  SPECIAL 
ENDIF 
GOTO  125 


375  TYPE  800.  '  ' 

TYPE  800)  'USER  CODES  l  MAXIMUM  OF  A  CHARACTERS)' 

TYPE  800)  '  AT  LEAST  ONE  CODE  MUST  BE  ENTERED  ' 

TYPE  800)  '  IF  THERE  IS  NONE)  ENTER  "  NK '  " 

TYPE  800)  '  PRESS  "RETURN"  AFTER  ALL  CODES  HAVE  SEEN  F.N 
DO  380  I “ 1)99 

ACCEPT  705)  USERS (I) 

N-USERS  ®  I  -  .1 

IF  (USERS (I )  .EG.  '  ' >  GOTO  381 
380  CONTINUE 


381  TYPE  800)  '  ' 

TYPE  800)  '  1  HE  USER  CODES  AT  PRESENT  ARE  S' 

TYPE  806  )  (  USERS  <  I )  )  I  -  1  »  N ..  USERS  ) 

TYPE  800)  '  ' 

TYPE  800)  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES' 

TYPE  800)  '  1  ...  TO  CHANGE  ANY  OF  THE  USER  CODES' 

TYPE  800)  '  2  ...  TO  CONTINUE' 

ACCEPT  70?)  ANSWER 

GOTO  (400)  425).  ANSWER 

400  DO  405  I  =  :l)N..USERS 

TYPE  S03)  'USER  CODE  t  '.I.  '  IS  PRESENTLY  '.  USERS! I) 

TYPE  800)  'DO  YOU  WISH  TO  CORRECT  THIS  Y  (Y/N)' 

ACCEPT  704)  YM 

IF  (YN  .EG.  'N')  GOTO  405_  A2  “  A  ~_4  . . . 


HAZARD  CODE  IS  ST1LI  ')  SH 


TYRE  800 ?  ' PLEASE  ENTER  THE  NEW  USER  CODE' 

ACCEPT  705 ?  NEW. -US 
IF  ( NEU-US  *  NE .  '  ' )  THEN 
USERS  (I  )  =  NEW. ...US 

TYPE  803?  'USER  CODE  t  'tit  '  IS  NOW  ' ,  USERS' X> 

EL  SE 

TYPE  «0o .  'USER  CODE  i  'tit  '  IS  .  I  J'  1.  I  '  ?  USERS <  f) 
END  IE 

TYPE  800 ?  'ARE  THERE  ANY  OTHER  CHANGES  TO  USER  CODES  7 

ACCEPT  70  4  >  YN 

IF  (YN  .EG.  OF)  GOTO  381 


’  N ) 


405  CONTINUE 
GOTO  381 


425  TYPE  800  >  ' 

TYPE  800  r  'INGREDIENTS  l  MAXIMUM  OP  50  CHARACTERS  EACH' 

TYPE  802  ?  '  PRESS  "RETURN"  AFTER  ALL.  INGREDIENTS  HAVE  BEEN' 
1  '  ENTERED' 

DO  430  1=1, 10 

ACCEPT  707?  INBRED (I ) 

N_ INGRED  ~  I  -  I 

IF  ( INBRED ( I )  » EQ «  '  ')  GOTO  431 
430  CONTINUE 


431 


TYPE  800?  '  ' 

TYPE  800?  'THE  INGREDIENTS  AT  PRESENT  ARE  ♦ ' 
TYPE  800?  UNGREDU)?  1  =  1  ?  N...INGRED) 


TYPE  800? 
TYPE  800? 
TYPE  800? 
TYPE  800? 


i  f 

'  p L. E  A S E  E N  (  E R  0 N E  0 F  T H E  F OLLOWI N 0  CODES  :  ' 
'  1  ...  TO  CHANGE  ANY  OF  THE  INGREDIENTS' 

'  2  ,,,  TO  CONTINUE' 


ACCEPT  70 6,  ANSWER 
GOTO  (450?  475)  ?  ANSWER 


450  DO  455  I  =  1  ?  N._  INBRED 

T  Y  P  E  8  0 3  ?  '  I M  G  R  E  D I E  NT  *  'tit  '  1 8  P  R  E  S  E  F 1  L  Y  '  ?  t  N  6  R  E  D  <  T.  ) 

TYPE  800?  'DO  YOU  WISH  TO  CORRECT  THIS  ?  <Y/N>' 

ACCEPT  704?  YN 

IF  (YN  «EU.  ' N ' )  GOTO  455 

TYPE  800?  'PLEASE  ENTER  THE  NEW  INGREDIENT' 

ACCEPT  707?  NEW_ IN 
IF  (NEW., IN  ♦  NE  .  '  ' )  THEN 
INGRED ( I )  a  NEW. IN 

TYPE  803?  'INGREDIENT  #  '?!?  '  IS  NOW  '?  INGRED <I) 

ELSE 

TYPE  803?  'INGREDIENT  *  '?I?  '-IS  STILL  '?  I NGRED ( I  ) 

END  IF 

TYPE  800?  'ARE  THERE  ANY  OTHER  CHANGES  TO  INGREDIENTS  ?  (Y/N 

ACCEPT  704?  YN 

IF  (YN  • EG »  'N'>  GOTO  431 

455  CONTINUE 
GOTO  431 


475  TYPE  800?  '  ' 

TYPE  800?  ' PROTECTIVE  DEVICES  :  MAXIMUM  OF  15  CHARACTERS  EACH 


TYPE  802 1  '  PRESS  ' 'RETURN ' '  AFTER  ALL  PR,  DEVICES  HAVE  BEEN' * 

I  '  ENTERED' 

DO  480  1=1,7 

ACCEPT  708  ,  PROTECT  I) 

N-PROT  =1-1 

IF  (PROTEC(I)  » EQ »  '  ')  GOTO  481 

480  CONTINUE 

481  TYPE  800 ,  '  ' 

TYPE  800 ,  'THE  PROTECTIVE  DEVICES  AT  PRESENT  ARE  :' 

TYPE  800i  (  PROTEC  ( I )  ,  1=1,N_PRGT) 

TYPE  800 i  '  ' 

TYPE  800 ,  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES  :' 

TYPE  800  r  '  1  ...  TO  CHANGE  ANY  OF  THE  PROTECTIVE  DEVICES' 

TYPE  800 ,  '  2  ...  TO  CONTINUE' 

ACCEPT  709  ,  ANSWER 

GOTO  ( 500 ,  525),  ANSWER 

500  DO  505  1  =  1 ,  N_PROT 

TYPE  803,  'PR.  DEVICE  *  ',I»  '  IS  PRESENTLY  ',  PRDTEC(I) 

TYPE  800 ,  'DO  YOU  WISH  TO  CORRECT  THIS  ?  <Y/N)' 

ACCEPT  704,  YN 
IF  (YN  ,  EQ ,  'N')  GOTO  505 

TYPE  800,  'PLEASE  ENTER  THE  NEW  PR.  DEVICE' 

ACCEPT  708,  NEW ....  P  R 
IF  <NEW_PR  *  N E ,  '  ')  THEN 
PROTEC  (  I )  NEW- P R  1 

TYPE  803,  'PR,  DEVICE  «  '  IS  NOW  ',  PROTEC(I) 

ELSE 

TYPE  803,  'PR,  DEVICE  t  ',1,  '  IS  STILL  PROTEC  <  I ) 

ENDIF 

TYPE  800,  'ARE  THERE  ANY  OTHER  CHANGES  TO  PR,  DEVICES  ?  (Y/N)' 
ACCEPT  704,  YN 
IF  (YN  , EQ .  'N')  GOTO  481 

505  CONTINUE 
GOTO  481 


525  READ  <UNIT  =  :I.O,  KEY  =  DATA....BH ,  KEY  I  D  =  G ,  ERR-600)  CHECK -IDS 


TYPE  800,  '  ' 

TYPE  800,  'THE  DATA  SHEET  NUMBER  YOU  HAVE  ENTERED  HAS  A l 
TYPE  800,  'BEEN  USED?  IT  MUST  BE  UNIQUE,' 

TYPE  800,  '  ' 

TYPE  800,  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES' 

TYPE  800,  '  1  ♦ ,,  TO  CORRECT  THE  DATA  SHEET  NUMBER' 

TYPE  800,  '  2  ,  .  *  TO  ENTER  A  DIFFERENT'  DATA  SHEET' 

TYPE  800,  '  A  TO  END  THIS  ENTRY  SESSION  COMPLETELY' 

ACCEPT  70S,  ANSWER 

G 0 T 0  1 5 5 0 ,  1 0 0 ,  9 1 0 0  )  ,  A N S WER 

550  TYPE  800,  '  ' 

TYPE  800,  'PLEASE  ENTER  THE  NEW  DATA  SHEET  NUMBER' 

ACCEPT  700;  N E W _ D S 
IF  (NEW_DS  , NE ,  0)  THEN 
DATA_  SH  =  NEU„DS  . 

A2-A-  6 


TYPE  801  i  'THE  DATA  SHEET  NUMBER  IS  NOW  ',  DAT  A..SH 
ELSE 

TYPE  801  r  '  THE  DATA  SHEET  NUMBER  IS  STILL  '  r  DATA..SH 
END  IF 
GOTO  525 


600  TYPE  80 0  r  '  ' 

TYPE  800 j  'DO  YOU  WISH  TO  ENTER  ANOTHER  DATA  SHEET  ?  (Y/N)' 

ACCEPT  704 »  YN 

IF  (YN  . E Q .  'Y')  GOTO  100 

GOTO  9100 

9000  TYPE  800  ? ' ERROR  IN  OPEN  STATEMENT' 


9100 

CLOSE 

( 1 0 ) 

CLOSE 

(11) 

CLOSE 

(12) 

CLOSE 

(13) 

CLOSE 

(14) 

700 

FORMAT 

(16) 

701 

FORMAT 

<  A  4  0 ) 

702 

FORMAT 

(  A  2  0 ) 

703 

FORMAT 

<  A2) 

704 

FORMAT 

c  A.I.  ) 

705 

FORMAT 

<  A4> 

706 

FORMAT- 

( 1  ? ) 

707 

FORMAT 

<  A50 ) 

708 

FORMAT 

( A15) 

709 

FORMAT- 

'll) 

800 

FORMAT 

i  l  X  t  U  ) 

801 

FORMAT 

(  1  \t  A .«  'i  6  > 

9  tj  2 

FORMAT 

<  1 X  *  A  v  A  > 

803 

F  0  R  f  i  A  T 

;  1 X  c  A  >•  .1 2  ■  A  y  A ) 

804 

FORMA! 

< 3X» Ay  16) 

805 

FORMAT 

(  5  X  t  A  ,  A ) 

806 

FORMAT 

( 1 X  7  8  ( A  4  *  4  X  )  1 

END 


A2-A  -  7 


*  * 

*  PROGRAM  TITLE  1  PRINTHATA  * 

t  * 

*  WRITTEN  BY  1  PIETER  HOESSMANN  * 

t  COMPUTER  APPLICATIONS  # 

%  NSMRL  * 

*  * 

*  PROGRAM  INTENT  1  THIS  PROGRAM  ALLOWS  THE  USER  TO  OBTAIN  A  * 

*  LISTING  OF  THE  MATERIAL  SAFETY  DATA  PRESENTLY  * 

*  STORES*  THE  LISTING  CAN  BE  THE  ENTIRE  DATA  * 

*  BASE  ?  OR  JUST  A  SUBSET  OF  I T ,  # 

*  * 


^  .ft  T  ^  'n  *  n'  *  T  ^  ^  t>  t*  *r  T*  <p  o'  “  *  •’*■  ^  ^  t  ^  n1  T1  ^  <P  ^  <f*  'p  T1  *  T  *  ^  *  *V  *  *  n1 

CHARACTERS  INGRES <  1 0  ) 

CHARACTER*40  MANUF ?  TRASE 
CHARACTER*20  STOCK 
CHARACTER*!.  5  PROTEC ( 7 ) 

CHARACTERS  SH.»  USERS<99) 

CHARACTERS  YR 
CHARACTER  H  ?  1"  ?  R 

INTEGERS  DAT  A...  SH  ?  UNIQ-DS?  BEG_DS  ?  ENH..SS 

I  NTEGF.R*2  N.JJSERSv  N._  INGRES  ?  N-PROT 

OPEN  (  UNIT*.!  0  r  FI LE=  '  II  B0E8SMANN  .  M ATS AFET Y TMANUF AC  .  DAT  '  ? 

1  ST  ATU8-  '  OLD  '  ?  ORGANIZATION"-'  INDEXED'  ?  ACCESS"  '  KEYED  '  ? 

2  RECORDT YPE- ' VARIABLE  '  »  FORM-  '  UNFORMATTED  '  *  RECL-26? 

3  KEY- ( 1 1 4 1  INTEGER ?  5 1 44 1 CHARACTER  ?  45  *  84 1  CHARACTER ? 

A  851104?  CHARACTER ) »  IOSTAT-IOS?  ERR-9000) 

OPEN  (UNIT-11 ?  FILE-' CBOESSMANN. MATS AFET Y3HCGBE8 .DAT' 7 

1  STATUS-  '  OLD  '  ?  ORGANIZATION-  '  INDEXED  '  ?  ACCESS  -  '  KEYED  ■'  ? 

2  RECORDTYPE-  '  UARIABLE  '  ?  FORM-  '  UNFORMA  T  TED  '  ,  R E (.: L "  5  • 

3  KEY  -  ( 1  *41  INTEGER?  516?  INTEGER  ?  7 1 8 1  INTEGER ?  9.10*  I N  I  L  G  S'  R  ■>  . 

4  ill  121CHARACTER?  1 3 1 13 J CHARACTER ?  1 4 l 1 4 1 CHARACTER ? 

5  15 1 15 1  CHARACTER  ?  161191  CHARACTER) ?  IOSTAT-IOS?  ERR-9000) 

OPEN  (UNIT-12?  FILE-' CB0ESSMANN.MATSAFETY3USERS.DAT' ? 

1  STATUS-  '  OLD '  ?  ORGANIZATION-' INDEXES' ?  ACCESS* 'KEYED ' » 

2  RECORDTYPE- 'VARIABLE'  ?  FORM’-- '  UNFORMATTED '  ?  RECL-3? 

3  KEY=< 1141  INTEGER?  5 1 8 1  INTEGER  ?  9 1 1 2 1  CHARACTER ) ? 

4  IOSTAT-IOS?  ERR-9000 )  j 

OPEN  (UN  IT- 13?  FILE-  '  CBOESSMANN  .  MAT  SAFETY  TF’ROTECT  .  DAT  '  ? 

1  STATUS- ' OLD  '  ?  ORGANIZAT ION- ' INDEXED  '  ?  ACCESS- ' KEYED  '  ? 

2  RECORDTYPE-' VARIABLE'  ?  FORM- ' UNFORMATTED  '  ?  RECL-6? 

3  KEY=( 1 141  INTEGER?  5181  INTEGER  ?  9 123 1  CHARACTER > ? 

4  IOSTAT-IOS?  ERR-9000 ) 

OPEN  (UNIT-14?  FILE-' LB0ESSMANN.MATSAFETYI1INGREB.DAT  '  ? 

.1  STATUS-  '  OLD  '  ?  ORGANIZATION- '  INDEXED  '  ?  ACCESS-  '  KEYED  '  ? 

2  RECORDTYPE- ' VARIABLE '  ?  FORM- '  UNFORMATTED  '  ?  RECL-15? 

3  KEY  =  (  1141  INTEGER?  5181  INTEGER ?  .9  1 58  1  CHARACTER >  ? 

4  IOSTAT-IOS?  ERR-9000) 

OPEN  (UNIT-31?  FILE- 'MSDATA.DAT ' ?  STATUS- ' NEW ' ? 

1  DISPOSE- 'PR I  NT/ DELETE' ) 


WRITE  (31?  804) 

PAGE-LEN  -  0 

Appendix  3-1 


TYRE  805 

ACCEPT  705 f  BEG-DS 
TYPE  806 

ACCEPT  705 ,  END-DS 

READ  ( 10 ,  KEYGE=BEG_D3 »  KEY! D  =  0 ,  ERR=9100)  DAT  A_SH  »  HANUF*, 

1  TRADE  ,  STOCK 

READ  (11,  KEYGE  =  BEt3_DS ,  KEV  ID  =  0  ,  ERR=9100)  DAT A„SH ,  N-USljiRS 
1  N-INGRED »  N-PROT,  YR  ,  H,  F,  R,  SH 


READ  (12,  KE  YGE  =  BEG_DS  >  KEY  I  D=i  ,  ERR=9100>  UNIQ..DS,  DATaJsh 
1  USERS ( 1 ) 

DO  100  1 =2 , N-USERS  I 

READ  (12,  E  RR-9 1 00 )  UNIG-DS,  DAT  A_SH ,  USERS(I) 

100  CONTINUE  I 


READ  (13,  KEYGE=BEG_DS,  K E Y I D - 1  ,  ERR=9100>  UNIG-DS,  DATA.LSH 
1  PROTEC ( 1 ) 

DO  200  1=2 , N-PROT 

READ  (13,  ERR  =  9100)  IJNIQ_DS,  DAT  A_SH ,  PROTEC(I) 

200  CONTINUE  I 


READ  (14,  KEYGE=BEG_DS,  KEYID=1  ,  ERR=9100)  UNIQ-DS,  DATA  1.SH 
1  INGRED(l) 

DO  300  1=2, N-INGRED 

READ  (14,  E  R  R  =  9 1  0  0  )  UNIG...DS,  DATA-SH,  INGRED(I) 

300  CONTINUE 


DO  WHILE  (DATA-SH  ♦  LE  »  END.. DS ) 

PAGE-LEN  =  PAGE-LEN  +  9  +  N-USERS/10  +  N-INGRED  +  N-PROT/ 

IF  (PAGE-LEN  » G  T  *  55)  THEN 
WRITE  (31,  804) 

PAGE-LEN  =  9  +  N_USERS/10  +  N-INGRED  +  N-PROT/5  i 

END  IF 

WRITE  <31,  800)  DATA_SH,  NANUF ,  TRADE,  STOCK,  YR,  H,  F  >  R 
WRITE  (31,  801)  (  USERS  ( I )  ,  1  =  1 » N-USERS ) 

WRITE  (31,  802)  ( INBRED ( J ) ,  J=1 » N-INGRED > 

WRITE  <31,  803)  (PROTEC(K),  K=i» N-PROT) 

READ  <10,  ERR  =  91 00 )  DATA-SH,  MANIJF ,  TRADE,  STOCK 

READ  (11,  ERR  =  <?  1 00 )  DATA-SH,  N..USERS ,  N-INGRED,  N-PROT  , 

1  YR,  H,  F,  K,  SH 

DO  400  1=1, N-USERS 

READ  (12,  ERR--91 00 )  UNIG-DS,  DATA-SH,  USERS  (I  ) 

400  CONTINUE 


DO  500  1=1, N-PROT 

READ  (13,  ERR  =  91 00 )  UNIQ-DS,  DATA-SH,  PROTEC(l') 

A3  -  2 


500 


CONTINUE 


600 


9000 

9100 


705 

800 


801 

802 

803 

804 

805 

806 


DO  600  1  =  1 »N_INGRED 

READ  (14  r  ERR-"  91  00  )  UNIG_DSf  DAT  A_SH  ?  I  NO  RED  ( 1 ) 
CONTINUE 


END  DO 


GOTO  9100 

PRINT  *  t ' ERROR  IN  OPEN  ST  ATE HE NT ' 

CLOSE  <io> 

CLOSE  (11) 

CLOSE  (12) 

CLOSE  (13) 

CLOSE  (14) 


FORM A  I  (16) 

FORMAT  < / / 1 X  »  'DATA  SHEET  NUMBER  X  '  r 1 6/1 X ?  ' MANUFACTURER  J  ',A40> 
/IX?  'TRADE  NAME  5  '»A40/r  IX  >  ' STOCK/MANUF  CODE  i  ',A2.0r 
'  YEAR  DATA  SHEET  OBTAINED  i  19 '  » A2/.1X  >  'HAZARD  CODES  H  X  'r 
A1 ?  '  F  :  ',A1»  '  R  :  ' f  A 1  f '  SPECIAL  HAZARD  CODE  X 

A  4 ) 

FORMAT  ( 1 X  r  'USER  CODES  X  '»  9(A4,3X>r  1 0  <  / 1.  X  >  T 1 6  >  9  (  A  4  ?  3  X )  >  ) 

FORMAT  (1X»  'INGREDIENTS  X  A50,  9 ( /l X t T1 6 t A50  )  ) 

FORMAT  ( IX  >  ' PR  *  DEVICES  :  4(A15»3X>  /  1X*T16»  3(A15»3X>> 

FORMAT  (  '  1  '  v  T31»  'MATERIAL.  SAFETY  DATA') 

FORMAT  <1X.  'BEGINNING  DATA  SHEET  NUMBER  {  '»$> 

FORMAT  ( 1 X i  'ENDING  DATA  SHEET  NUMBER  X  '»$) 

END 
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**************  **********  ************************************************ 


*  * 

*  PROGRAM  TITLE  I  MATCH  * 

*  * 

*  WRITTEN  BY  :  DIETER  BOESSMANN  * 

*  COMPUTER  APPLICATIONS  * 

*  NSMRL  * 

*  * 

*  PROGRAM  INTENT  J  THIS  PROGRAM  ALLOWS  THE  USER  TO  OBTAIN  A  * 

*  LISTING  OF  ALL  THE  MATERIAL  SAFETY  BATA  * 

*  CONTAINING  A  USER-GIVEN  STRING  OF  CHARACTERS  * 

*  IN  THE  USER-CHOSEN  CATEGORY ♦  FOR  EXAMPLE*  * 

*  ONE  COULD  OBTAIN  ALL  THE  MATERIAL  SAFETY  * 

*  DATA  SHEETS  CONTAINING  'BENZENE'  IN  ONE  OF  * 

*  THE  INGREDIENTS  BY  USING  THIS  PROGRAM.  * 

*  % 


l-  'i/  'V  ■•is  *  'if  'i'  ^  ^  'i'  ‘4r  ‘is  'is  •4'  ‘is  •&  ■41  'is  ,4»  ^  'is  *  ^ 'is  '■y  *  'is  'is  *  V  ■4'  ^  ^  ^  ^  "it  "it  'it  *  *  'it  'it  "it  'k  'if  it  4'  ^  *  'V  it  ^  it  ^  it  "if 't  *  14’  ^  Jr  ‘if  *  'A'  it  * 

/jL  -T1  'I'  '*  -T*  ^  T-  •'*  'T-  'T'  'T*  -T  •*  n1*  ^  T1  T-  ^  T-  ^  *T>  ^  ^  ^  “■  ^  ^  ^  ^  ^  ^  T1  ^  ^  Jr-  ^  T*  ^  •T-  n>*  ^  '»’■  “T*  *V»  ^  •Y'  T>  m1  ^  “•  m»  ^  ^  n' 

CHARACTER*50  INGRED ( 10 ) ?  SRCH_STR*  SUB.STR 
CHARACTER*40  MANUF  *  TRADE 
CHARACTERIZE  CHOICES(ll) 

CHARACTE'.R*20  stock 
CHARACTER* 15  PROTEC (15) 

CHARACTE R*4  PH*  USERS (99) 

CH ARACTER*2  YR 
CHARACTER  H*  K*  R 

INTEGER*4  D  A  T  A ...  S  H  *  UNIQ-DS 

INTEGER*?.  N ... U S E R 9  *  N._ INGRED  *  N-PROT 

INTEGER  ANSWER*  LENGTHS ( 1 1 ) *  START*  PAGE-LEN 

DATA  CHOICES/  'MANUFACTURER'*  'TRADE  NAME'*  '  STOCK/MANUF  CODE'* 

1  'YEAR  DATA  SHEET  OBTAINED'*  'HAZARD  CODE  H'r  'HAZARD  CODE  F'* 

2  'HAZARD  CODE  R'?  'SPECIAL  HAZARD  CODE '  *  'USER  CODE'* 

3  'INGREDIENT'*  'PROTECTIVE  DEVICE'/ 

DATA  LENGTHS/  40*  40,  20*  2*  1*  1*  1*  4*  4*  50*  15/ 
******************************************************* ********* ******** 

OPEN  ( UN  I T  =  1 0  *  FILE-' CBOESSMANN. MATSAFETY3MANUFAC.DAT'  * 

1  ST  ATUS  -  '  OLD  '  *  ORGANIZATION- '  INDEXED  '  *  ACCESS-'  'KEYED  '  * 

2  RECORDTYPE= ' VARIABLE ' *  FORM13  '  UNFORMATTED ' ,  RECL-26  * 

3  KEY-( 1 J 4: INTEGER*  5 5 44 J CHARACTER  *  45 i S4 X  CHARACTER , 

4  85 *  104 ‘CHARACTER ) *  IOSTAT=IOS,  ERR-9000) 

OPEN  (UNIT - .1. 1  *  F I LE-  '  C  BOESSMANN  ♦  MATS AFET  Y I!  H CODES  .  HAT  '  * 

1  STATUS13  '  OLD  '  ?  ORGANIZATION31'  INDEXED'  ,  ACCESS- ' KEYED  '  * 

2  RECORDTYPE-' VARIABLE'  *  FORM  = '  UNFORMATTED  '  *  RE  CL.  •-“■5  , 

3  KEY- ( 1 1  4  J INTEGER ?  5  J  6  J INTEGER  *  7 t 8 t INTEGER  *  9 1 1 0 : INTEGER  * 

4  11.12.CHARACTER,  1 3 : 1 3 t CHARACTER ,  1 4 l 1 4 J CHARACTER » 

5  15 1 15  i  CHARACTER  *  16 J 19 J CHARACTER ) *  IOSTAT=IOS*  ERR-9000) 

OPEN  (  UNIT  - 12 ,  FILE-- '  L' BOESSMANN  .MAT  SAFETY  3  USERS  ,  DAT  '  * 

1  STATUS13 '  OLD  '  *  ORGANIZATION”' INDEXED  '  t  ACCESS- '  KEYED  '  *• 

2  RECORDTYPE31 '  VARIABLE  '  *  FORM= ' UNFORMATTED ' *  RECL  =  3* 

3  KEY=< 1 J4: INTEGER,  5  J  8  J INTEGER  *  9  *  12  J  CHARACTER ) » 

4  IOSTAT-IOS  *  ERR  =  9000 ) 

OPEN  <  UNI T  =  1 3 ,  FILE='EB0ES3MANN. MATSAFETYTPROTECT.DAT' * 

1  STATUS13  '  OLD  '  *  ORGANIZATION31' INDEXED' ,  ACCESS13  ' KEYED  '  * 

2  RECORDTYPE-  'VARIABLE  '  *  FORM13  '  UNFORMATTED  '  *  RECL*6* 
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3 

4 


KEY  =  (lMi  INTEGER,  5J8J  INTEGER?  9  J  23  l  CHARACTER  )  ? 
I OSTAT  =  I OS  ?  ERR=9000 ) 


OPEN  (UNIT=14?  FI LE= ' L  BOESSM ANN . MAT SAFETY 3 INGRED ♦ DAT ' j 

1  STATUS='QLD' ?  ORGANIZATION- ' INDEXED " ?  ACCESS™  '  KEYED '  ? 

2  RECORDTYF‘E  =  '  VARIABLE  '  ?  FORM  =  '  UNFORMATTED  '  ?  RECL^lSs. 

3  KEY  =  ( 1 1 4  5  INTEGER  ?  518: INTEGER?  ?  J  58  I  CHARACTER  )  « 

4  IOSTAT=IOS?  ERR=9000 ) 

OPEN  (UNIT=31»  FILE= ' MSDATA  *  DAT ' ?  STATUS™ '  NEW  ' ? 

1  DISF’OSE= '  PRINT/DELETE ' ) 


dr  ^  ^  ^  ^  dr  dr  ^  ^  dr  •X'  dr  ^  dr  ^  dr  ^  ^  ^  ^  dr  dr  ^  ^  ^  dr  dr  ^  dr  dr  dr  d>  ^  d>  dr  ^  dr  dr  dr  dr  dr  ^  d  dr  dr  ^  dr  ^  ^  ^  dr  ^  dr  dr  dr  ^  ^  dr  ^  dr  v 

^  ^  ^  ^  t  ^  ^  ^  ^  ^  ^  ^  r^  rp  ^  ^  ^  ^  ^  ^  ^  T1  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  *•  ^  ^  ^  ^  ^  t*  ^  ^  ^  ^  ^  ^ 


dr^dr'D^dr^^ 


PAGE.LEN  =  56  !  SET  ABOUE  MAX  PAGE  LENGTH  LIMIT r  SO 

*  TITLE  WILL  BE  WRITTEN  OUT  FIRST  TIME  THRU 


READ  (10?  KEYGE=0?  KEY  I D-0 ?  ERR  =  9iOO)  DAT  A_SH  ?  MANUF? 

1  TRADE r  STOCK 

READ  (Ur  KEYGE=0 ?  KEYID--0  ?  ERR=9100)  DAT A„SH  ?  N-USERS? 
I  N-INGRED?  N-PROTp  YR  r  Hr  Fr  Rr  SH 

READ  ( 1 2  »  KEYGE--0  r  K E Y I D •“  1  ?  ERR=9100)  UNIQ_DS»  DATA-SH? 
1  USERS ( 1 ) 

DO  100  I=2?N_ USERS 

READ  ( 1 2 »  ERR--9100)  UNIG-DS?  DATA...SH?  IJSERS(I) 

100  CONTINUE 


READ  (13?  KEYGE  =  0  ?  KEY  I D=  1  »  ERR=910Q>  UNI  Q...DS  ?  DATA-SH? 
1  PROTEC(l) 

DO  200  1=2  »  N_F'R0T 

READ  (13?  ERR=91 00 )  UNIQ_DS?  DATA..SH?  PROTEC(l) 

200  continue 

READ  (14?  KEYGE  =  0  ?  KEY  ID  =  1  ?  ERR=9100>  UNIQ-DS?  DATA_.SH? 
1  INGRED ( 1 ) 

DO  300  1  =  2 ? N_I NGREL 

READ  (14?  ERR  =  9 1 00 )  UNIQ_DS?  DATA-SH?  INGRED ( I ) 

300  CONTINUE 


TYPE  S00?  ' PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES' 

DO  350  1=1 ? 11 

TYPE  801?  I?  '  ...  TO  FIND  A  '?  CHOICES(I) 

350  CONTINUE 

ACCEFT  900?  ANSWER 

360  TYPE  800?  '  ' 

TYPE  809?  'PLEASE.  ENTER  YOUR  DESIRED  '?  CHOICES  ( ANSWER ) 

ACCEPT  901 >  SUB-SIR 

DO  370  1=50? 1 7-1 

IF  (SUB-STR(Itl)  .NE.  '  ')  THEN 
LENG  =  I 
GOTO  375 
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370 

END  IF 

CONTINUE 

7  er 
/  xJ 

IF  (LENG  *  L E .  LENGTHS- 

ANSWER))  GOTO  400 

TYPE  800 ,  '  ' 

TYPE  800.  'THE  ANSWER 
TYPE  803 ,  ' MAXIMUM  OF 
TYPE  809 »  'FOR  ANY 

YOU  GAVE  WAS  TOO  LONG 
LENGTHS ( ANSWER  > »  ' 

CHOICES (ANSWER) 

GOTO  360 

400 

X  =  1 

DO  WHILE  (X  .ER.  1) 

GOTO  (425  >  450 ,  475, 
1  ANSWER 

500  ?  525  »  550,  575, 

425 

SRCH-STR  -  MANUF 

GOTO  700 

450 

SRCH-STR  TRADE 

GOTO  700 

475 

SRCH-STR  STOCK 

GOTO  700 

500 

SRCH-STR  »  YR 

GOTO  700 

525 

SRCH-STR  »  H 

GOTO  700 

550 

SRCH-STR  -■  F 

GQTO  700 

575 

SRCH..STR  ••••  R 

GOTO  700 

600 

SRCH-STR  ■  SH 

CHARACTERS  At. 


GOTO  700 


625  DO  630  1  =  1  >  N..USERS 

SRCH-STR  =  USERS ( I ) 

START  -  INDEX  <SRCH_STR»  SUB-STR ( 1 i LENG ) ) 
IF  (START  ♦ NE ♦  0 >  GOTO  725 
630  CONTINUE 

GOTO  750 


650  DO  655  I-.l  >  N... INDEED 

SRCH-STR  ™  INGREIKT.  • 

START  =  INDEX  (SRCH-STR,  SUB-STR ( 1 t LENG > ) 
IF  (START  *  NE .  0)  GOTO  725 
655  CONTINUE 

GOTO  750 

675  DO  680  I=1,N_PR0T 

SRCH-STR  =  PROTEC ( I ) 

START  =  INDEX  ( SRCH  -STR  ,  SUB-STR ( 1 i LENG ) ) 
IF  (START  .NE.  0)  GOTO  725 
680  CONTINUE 


LOWED 


675) 
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GOTO  750 


700  START  =  INDEX  (  SRCH_STR  i  SUB-STR  <  1  LENG  >  ) 
IF  (START  .EG.  0)  GOTO  750 


725  PAGE-LEN  =  PAGE-LEN  +  9  '  +  N-USERS/10  +  N-INGRED  +  N-PROT/5 

IF  (PAGE-LEN  » GT .  55)  THEN 
WRITE  (31,  804) 

WRITE  (31,  810)  SUB-STRU  JLENG)  ,  CHOI  CES  ( ANSWER ) 

PAGE_LEN  =  9  +  N_USERS/10  +  N-INGRED  +  N-PROT/5 
END  IF 

WRITE  (31,  805)  DATA-SH j  MANUF ,  TRADE,  STOCK,  YR,  H,  F  R,  SH 
WRITE  (31,  806)  (USERS(I),  1  =  1 , N-USERS ) 

WRITE  (31,  807)  ( I  NGRE'.D  <  I )  ,  1  =  1  ,  N_.  INBRED  ) 

WRITE  (31,  808)  ( PROTEC (  I )  ,  I  =  1,N_PR0T)  I 


750  READ  (10,  ERR=9100)  DATA-SH,  MANUF,  TRADE,  STOCK 

READ  (11,  ERR  =  9 1 00 )  DATA-SH,  N-USERS,  N-INGRED,  N..PROT 
1  YR,  H,  F,  R,  SH 

DO  760  1=1, N-USERS 

READ  (12,  ERR--9100)  UNIQ-US,  DATA-SH ,  USERS(I) 

760  CONTINUE 

DO  770  1  =  1  ,  N..INGRED 

READ  (14,  E  R  R  =  9 1 0  0  )  UNIQ-DS,  DATA-SH ,  INGRED ( I > 

770  CONTINUE 

DO  780  1=1 , N-PROT 

READ  (13,  ERR=9100)  UNIQ-DS,  DATA-SH,  PROTEC(I) 

730  CONTINUE 


END  DO 


9000  PRINT  #, 'ERROR  IN  OPEN  STATEMENT' 

9100  CLOSE  (10) 

CLOSE  (11) 

CLOSE  (12) 

CLOSE  (13) 

CLOSE  (14) 

800  FORMAT  (IX, A) 

801  FORMAT  <3X,I2,A,A> 

802  FORMAT  (IX, A, A, A) 

803  FORMAT  (IX, A, 1 2, A) 

804  FORMAT  (  '  1 '  ,  T31,  'MATERIAL  SAFETY  DATA') 

805  FORMAT  (//IX,  'DATA  SHEET  NUMBER  l  ',16/'  MANUFACTURER  5  A20, 

1  /'  TRADE  NAME  J  ',  A40/'  STGCK/MANUF  CODE  1  ',  A20 , 

2  '  YEAR  DATA  SHEET  OBTAINED  J  19',  A2/'  HAZARD  CODES  HI', 

3  Al,'  F  J  ',  Al,'  R  I  '  ,  A  .1. ,  '  SPECIAL  HAZARD  CODE  5  ', 

4  A4 ) 

806  FORMAT  (IX,  'USER  CODES  t  9CA4,3X>,  1 0 ( /IX , T 1 6 , 9 ( A4 , 3X ) ) ) 
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307  FORMAT  <1X»  ' INGREDIENTS  i  '»  A50»  ? ( /IX » T16 » A50 ) > 

303  FORMAT  < 1X»  'PR.  DEVICES  J  '  »  4<A15»3X>  /  1X»T16»  3(A15»3X) ) 

809  FORMAT  (1X»A,A) 

8.10  FORMAT  <1X»T26f 'WITH  '  »  At  '  IN  THE  A) 

900  FORMAT  (12) 

901  FORMAT  <A50> 

'J/  ^  ’i’  ■4'  ■’A'1  'k  +  'i'  'i/  V  'i*  "4f  ‘It '-it  ‘if  it  'V  ’i'  ^  ■4'  ‘-t  ^  'A'  ’A'  'A'  +  "J'  ^  ^  +  "it  'k  'k  'k  ^  it  'A'  i  it  it  it  ^  it  ‘t  it  ^  4’  "tit  ‘ii  & 't  'k  it  it  'if  'it  It  It 

^  *  o'  ^  'T*  ^  ^  T’  *  t  *•  if1  /f1  iy>  1  'r  o'  “V  T1  ^  T1  4'  T-  'r  'r  T  t*  ^  t  <r  'n  *  ^  ^  ^  'T'  t  'i*  •  t1  l'  ^  t  'r  -p  'p  *  ^  ■1'  ■  I1  <1‘  ‘T’  ■t  *  * 


END 
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****************** ****************************************************** 


*  * 

*  PROGRAM  TITLE  2  MATERIAL  SAFETY  SORT  * 

*  * 

*  WRITTEN  BY  2  DIETER  BOESSMANN  ‘  * 

*  COMPUTER  APPLICATIONS  * 

*  NSMRL  * 

*  * 

*  PROGRAM  INTENT  2  THIS  PROGRAM  ALLOWS  THE  USER  TO  OBTAIN  * 

*  A  LISTING  OF  THE  MATERIAL  SAFETY  DATA  * 

*  IN  SORTED  ORDER »  BASED  ON  THE  MANUFACTURER ,  * 

*  TRADE  NAME  OR  STOCK/M ANUF  CODE*  * 

*  * 


************************************************************************ 

CH ARACTER*40  MANUF  ,  TRADE 
CHARACTER*20  STOCK 
CHAR AC TER* 4  SH 
CHARACTER* 2  Yft 
C  H  A R  A Cl ER  Hi  F;  R 

INTEGER*  4  DAT  A..SH 

INTEGER *2  N_USERS,  N_INGRED  ,  N_PROT 

INTEGER  ANSWER  ,  COUNT 

*1'  'J'  iS  'if  ^  V  ^  ^  ^  ^  ^  ^  ^  'l'  ^  'll  dr  ^  dr  'll  ^  •!/  \Lr  ytp  ytp  ytp  ^  ^  yip  yip  yip  ^p  yip  yip  yip  yip  yip  yip  ^  dl  d'  ^  A 

sf .  *71  ^  Jy.  1*  ^  <rfy  rfy  rfv  jyv  jyw  rfv  rfv  ^  ip  ^  if\  ^  ^  ^  i*  o'  ^  ^  ifv  ^  ^  ^  ^  ip  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 

OPEN  (UNIT-10,  FILE-'  CBOESSMANN . MATSAFETYIMANUFAC . DAT '  , 

1  STATUS-  ’  OLD  '  i  ORGANIZATION- ’ INDEXED ' »  ACCESS- ' KEYED ' , 

2  RECORDTYPE- ' VARIABLE ' ,  FORM- ' UNFORMATTED ' ,  RECL-26, 

3  KEY- (12  4  2  INTEGER ,  5  2  44  2  CHARACTER ,  45 2  84 2  CHARACTER , 

4  852  1042  CHARACTER ) ,  IOSTAT-IQS,  ERR-9000) 

OPEN  (UNIT-11 r  FILE- ' L BOESSMANN . MAT SAFETY I HCODES . DAT  '  , 

1  STATUS- ' OLD ' ,  ORGANIZATION-' INDEXED ' ,  ACCESS- ' KEYED ' , 

2  RECQRDTYPE-' VARIABLE' ,  FORM- ' UNFORMATTED ' ,  RECL-5, 

3  KEY- (  1  2  4  2  INTEGER  >  5  2  6  2  INTEGER ,  7282INTEGER,  9  2  10  2  INTEGER , 

4  1 1. 2  .12  2  CHARACT  ER  i  13  2  1 3  2  CHARACTER ,  1 4  2  1 4  2  CHARACTER  , 

5  152  1 5  2  CHARACTER ,  1  6  2  1 9  2  CHARACTER )  ,  IOSTAT-IOS,  ERR-9000) 

OPEN  (UNIT-19,  FILE- ' MSDATA . DAT ' ,  STATUS- '  NEW  '  , 

1  0 1 SPOSE- ' PR  I  NT/DELETE '  ) 

^  yip  ^  ^  ^  ^  dr  ^  ^  yip  ^  ^  ^  ^  4  ^  ^  ^  ^  ^  ^  ^  4*  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  4f  k 

^  ^  ^  ^  ^  ^  ^  ^  ^  ®  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  *«  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  *p  ^  ^  ^  ^  ^  ^  ^  ^  ^  rp  ^  ^  ^  ^  ^  ^  h1  m' m'  h'  m'  4^  v  4^  4^  4*  4^  4^  * 

COUNT  -  60 

TYPE  8000,  'PLEASE  ENTER  ONE  OF  THE  FOLLOWING  CODES' 

TYPE  8001,  '1  ...  TO  SORT  BY  MANUFACTURER' 

TYPE  8001,  '2  ...  TO  SORT  BY  TRADE  NAME' 

TYPE  8001,  '3  ...  TO  SORT  BY  STOCK/MANUF  CODE' 

ACCEPT  7000,  ANSWER 

READ  (10,  KEYGE- '  ',  KEY  ID-ANSWER ,  ERR-9100)  DAT  A_SH ,  MANUF, 

1  TRADE,  STOCK 

READ  (11,  KEY-DAT A_SH ,  KEY  1 D-0 ,  ERR-9100)  DATA_SH ,  N-USERS, 

1  N..INGRED,  N_PROT ,  YR,  H,  F,  R,  SH 

100  IF  (COUNT  .GT.  58)  THEN 
COUNT  =  1 
WRITE  (19,  8003) 
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COUNT  =  COUNT  +  .1 

WRITE  (19,  8002)  MANUF,  TRADE,  STOCK,  H,  F,  R,  SH 

READ  (10,  END  =  9100 )  DAT  A_SH ,  MANUF ,  TRADE,  STOCK 

READ  (11,  END -  9100)  DATA-SH,  N.USERS,  N..INGRED,  N.PROT,  Y  '< , 

1  H,  F,  R,  SH 

GOTO  100 

*****************:  *********  ****  ***  ***#  *********  #***  #*****«*#***|r*  ******* 

7000  FORMAT  (ID 

8000  FORMAT  (IX, A) 

8001  FORMAT  (3X,A) 

8002  FORMAT  <6X,A,'  ',A,'  '  ,A,  '  ',A,'  ',A,'  ',A,'  '  ,  A) 

8003  FORMAT  (  '  1 '  r  IX,  T113,  'HAZARD ' ,  T124,  'SP  H'/6X,  'MANUFACTURER', 

1  T49 ,  ' TRADE  NAME',  T91,  ' STOCK/MANUF  CODE',  T114,  'COD 

2  ' CODE ' /IX  ,  T 1 1 3 ,  'H  F  R'/) 

ft##****##**#*******#*#***##*****#*#####**####*#*****##********# 

9000  PRINT  *, 'ERROR  IN  OPEN  STATEMENT' 

9100  CLOSE  (10) 

CLOSE  (1.1) 

CLOSE  (12) 

CLOSE  (13) 

CLOSE  (14) 

END 


S',  T 124 , 

******** 
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COMPARISON  OF  INFORMATION  CATEGORIES  OF  (A.)  OSHA,  (B.)  HMIS,  AND 

(c.)vax/msds 

The  information  on  an  MSDS  OSHA  form  20  is  broken  down  into  9  separate 
sections : 

1)  manufacturer's  name,  address,  phone  number,  chemical  name,  and  trade 
name. 

2)  hazardous  ingredients 

3)  physical  data 

4)  fire  and  explosion  hazard  data 

5)  health  hazard  data 

6)  reactivity  data 

7)  spill  or  leak  procedures 

8)  special  protection  information 

9)  special  precautions 

The  HMIS  data  sheet  is  broken  down  into  8  sections: 

1)  hazardous  item  indication  which  includes  the  federal  stock  nunmber  and 
trade  name. 

2)  general  information  which  includes  manufacturer 

3)  hazardous  components 

4)  transportation  data 

5)  additional  data 

6)  health  and  physical  property  data 

7)  safety  storage  and  fire  fighting  procedures 

8)  spill  and  leak  procedures 

VAX/ MSDS  system  uses  a  core  of  data  which  we  feel  is  most  germane  for 
generating  lists  of  information  by  the  computer  for  the  identification  and 
protection  from  chemical  hazards . 

1)  manufacturer 

2)  trade  name 

3)  stock  number 

4)  date  MSDS  was  obtained 

5)  hazard  code 

6)  user  code  (code  is  shown  below) 

7 )  ingredients 

8)  protective  devices 

THE  VAX/MSDS  USER  CODE 


SERIES 

SUB  SERIES 

DESCRIPTION 

0000 

RESERVED 

1000 

NSSF 

2000 

SUBASE 

3000 

USS  FULTON 

4000 

NUSC 

5000 

FORCES  AFLOAT 

6000 

RESERVE  CENTERS 
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APPENDIX  6 
(continued) 


7000 

7100 

MISCELLANEOUS  ACTIVITES, 
SUBSCHOOL 

7200 

SUPSHIP 

7300 

navsubmedrschlab 

8000 

8100 

MISCELLANEOUS  ACTIVITIES 
BROOKLYN  NAVAL  STATION 

9000 

RESERVED 

It  should  be  noted  that  the  user  code  as  well  as  the  other  information 
categories  of  the  VAX/MSDS  system  are  still  in  the  experimental  testing  stage 
of  development. 
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MATERIAL  SAFETY  DATA 


DATA  SHEET  NUMBER  :  1 

MANUFACTURER  l  AMALIE  REFINING  CORPORATION 

TRADE  NAME  i  BLACK  VEl  VET  GREASE 

STOCK/ MANUF  CODE  t  CA  I  LG  YE  AR- 

HAZARD  CODES  H  :  4  r  1  J.  R  i  0  SPEC 

USER  CODES  J  NK 

.!  N  G  R  E.  D 1 1“  N  1  S  t  C  A  L  C  .f  U  M  S  !  c.  A  K  A  1 1" 

!  FAD  OXIDE 
GRAPH  !.  V'c 


DATA  SHEET  OBTAINED  : 
A l,  HAZARD  CODE  5 


FR,  BE VIC 


DATA  SHEET  NUMBER  *  7 

M  A  N  U  F  A  C  T  U  R  E  I?  :  D  E  X  T  E  R  C  0  R  P  1.1  P  A  T 1 0  N 
TRADE  NAME  t  hOUADEX  TOUCH- UP  ' 

STOCK /MANUF  CODE  J  3224*  YEAR  DATA  SHEET  OBTAINED 

HAZARD  CODES  H  {  N  F  i  N  R  J  N  SPECIAL  HAZARD  CODE  t  NK 

USER  CODES  J  NK 
INGREDIENTS  {  LEAD  SULPHATE 
LEAD 

PR,  DEVICES  i  NK 


DATA  SHEET  NUMBER  {  3 

MANUFACTURER  J  AMALIE  REFINING  COMPANY 
TRADE  NAME  :  A QUA -SON I C  SHIELD 

STOCK/ MANUF  CODE  i  NK  YEAR  DATA  SHEET  OBTAINED 

HAZARD  CODES  H  I  2  I-  :  3  R  J  0  SPECIAL  HAZARD  CODE  5  NK 

USER  CODES  ;  NK 
I N  G  R  E  D I E  N  T  S  I  8  T  0  D  D  A  R  D  S  0  L  V  E  N  T 
CALCIUM  £  TEAR A  f£ 


PR,  DEVICES  t  NK 


DATA  SHEET  NUMBER  J  4 

MANUFACTURER  J  AMALIE  REFINING  COMPANY 
TRADE  NAME  t  FILM SPRAY  RUST OP 
STDCK/MANUF  CODE  J  NK 

HAZARD  CODES  H  J  2  F  :  3  R  I  0 
USER  CODES  t  NK 
INGREDIENTS  J  STODDARD  SOLVENT 
CALCIUM  SULFONATE 
PETROLATUM 


YEAR  DATA  SHEET  OBTAINED  i 
SPECIAL  HAZARD  CODE  I  NK 


PR,  DEVICES  I  NK 


1979 


1975 


1979 
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MATERIAL  SAFETY  DATA 
WITH  BENZENE  IN  THE  INGREDIENT 


DATA  SHEET  NUMBER  3  116 

MANUFACTURER  3  HUGHSON  CHEMICALS 

TRADE  NAME  3  CHEMGLAZE  BLUE  ELASTOMERIC  POLYURETHANE 
STOCK/MANUF  CODE  {  TS  3236-25A  YEAR  DATA  SHEET  OBTAINED  3 

HAZARD  CODES  HI  2  F  5  4  RIO  SPECIAL  HAZARD  CODE  3 

USER  CODES  3  NK 
INGREDIENTS  3  ETHYL  BENZENE 

N-BUTYL  ACETATE 
T  0  L.  U  E  N  E  D 1 1 S  0  C  Y  A  N  A  T  E 
CELLOSOLVE  ACETATE 
2-ETHOXYETHYL ACETATE 

PR,  DEVICES  3  NK 


DATA  SHEET  NUMBER  3  1.3? 

MANUFACTURER  3  THE  CARTER'S  INK  COM 
TRADE  NAME  3  CARTER'S  RUBBER  CEMENT 

STOCK/MANUF  CODE  3  8040-00-291-8625  YEAR  DATA  SHEET  OBTAINED 

HAZARD  CODES  H  3  3  F  3  3  R  3  0  SPECIAL  HAZARD  CODE  3 

USER  CODES  3  NK 
INGREDIENTS  •  3  BENZENE 

PR.  DEVICES  3  NK 


DATA  SHEET  NUMBER  3  155 

MANUFACTURER  3  HUGHSON  CHEMICALS 

TRADE  NAME  3  CHEMGLAZE  GREEN  ELASTOMERIC  POLYURETHANE 
STOCK/MANUF  CODE  3  TS  3236-23A  YEAR  DATA  SHEET  OBTAINED 

HAZARD  CODES  H  3  3  F  3  2  R  3  1  SPECIAL  HAZARD  CODE  3 

USER  CODES  3  NK 
INGREDIENTS  3  ETHYL  BENZENE 

N-BUTYL  ACETATE 
CELLOSOLVE  ACETATE 
2-ETHOXYETHYL  ACETATE 
TOLUENE  DI ISOCYANATE 
CARBON  BLACK 
LEAD 

CHROMATES 
PR,  DEVICES  3  NK 


DATA  SHEET  NUMBER  3  161 

MANUFACTURER  3  HUGHSON  CHEMICALS 
TRADE  NAME  3  CHEMGLAZE  THINNER  9954 

STOCK/MANUF  CODE  3  NK  YEAR  DATA  SHEET  OBTAINED 

HAZARD  CODES  H  3  2  F  3  4  R  3  0  SPECIAL  HAZARD  CODE  3 

USER  CODES  3  NK 
INGREDIENTS  3  N-BUTYL  ACETATE 
ETHYL  BENZENE 
CELLOSOLVE  ACETATE 


PR,  DEVICES  3  NK 


1980 


1978 


1980 


1980 
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APPEiTOIX  10 

BASIC  COMMANDS  FOR  SYSTEM  OPERATION 

1.  Log  on  computer  system 

2.  For  adding  MSDS's  to  master  data  file  call  up  the  DATASHEET  program  by 

heying  in  ENTER.  Instructions  will  appear  on  the  CRT.  To  print,  key 
in  DATA  and  follow  the  further  instructions  on  the  CRT. 

3.  For  matching,  use  the  MATCH  program  by  keying  in  MATCH  and  then  following 

further  instructions  on  the  CRT.  Printouts  on  the  matched  data  are 
automatically  made. 

4.  For  sorting  data,  use  MSSORT  program  by  keying  in  SORT  and  following  the 

further  instructions  on  the  CRT.  Printouts  of  the  sorted  data  are 
automatically  made . 
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